В ютубе вбей - "Уроки по AbobeAfterEffects" или "Как сделать инфографику в After Effects" Программа After Effects. Программа проста в освоении, но придется потренироваться
begin writeln('Введите d'); read(d); writeln('Введите m,n,p'); read(m, n, p); if (m = d) or (n = d) or (p = d) then begin if (m = d) then writeln('m = d'); if (n = d) then writeln('n = d'); if (p = d) then writeln('p = d'); if (m = d) and (n = d) then writeln('m,n = d'); if (m = d) and (p = d) then writeln('m,p = d'); if (p = d) and (n = d) then writeln('p,n = d'); end else begin writeln('Ни одно не равно d'); if ((d - m) > (d - n)) and ((d - m) > (d - p)) then writeln('(d-m) - максимальное'); if ((d - n) > (d - m)) and ((d - n) > (d - p)) then writeln('(d-n) - максимальное'); if ((d - p) > (d - m)) and ((d - p) > (d - n)) then writeln('(d-p) - максимальное'); if ((d - m) = (d - n)) and ((d - m) = (d - p)) and ((d - n) = (d - p)) then writeln('(d-m)=(d-n)=(d-p)'); end; end.
Var a1,a2,a3,a4,a5,a6,a7,a8,k:integer; begin k:=0; read (a1,a2,a3,a4,a5,a6,a7,a8); if (a1>0) and (a2>0) and (a3>0) and (a4>0) and (a5>0) and (a6>0) and (a7>0) and (a8>0) then begin if (a1 mod 3 = 0) and (a1 mod 10 = 4) then k:=k+1; if (a2 mod 3 = 0) and (a2 mod 10 = 4) then k:=k+1; if (a3 mod 3 = 0) and (a3 mod 10 = 4) then k:=k+1; if (a4 mod 3 = 0) and (a4 mod 10 = 4) then k:=k+1; if (a5 mod 3 = 0) and (a5 mod 10 = 4) then k:=k+1; if (a6 mod 3 = 0) and (a6 mod 10 = 4) then k:=k+1; if (a7 mod 3 = 0) and (a7 mod 10 = 4) then k:=k+1; if (a8 mod 3 = 0) and (a8 mod 10 = 4) then k:=k+1; writeln (k); end else writeln ('Неверный ввод'); end.
Программа After Effects. Программа проста в освоении, но придется потренироваться