Можно ли так записать программу? var a,a1,a2,a3,a4: integer; begin writeln('введите число'); readln(a); a1: = a div 1000; a2: = a div 100 mod 10; a3: = a div 10 mod 10; a4: = a mod 10; if a1> a2 a1> a3 a1> a4 then begin writeln('max=',a1); end; if a2> a1 a2> a3 a3> a4 then begin writeln('max',a2); end; if a3> a1 a3> a2 a3> a4 then begin writeln('max',a3); end; if a4> a1 a4> a2 a4> a3 then begin writeln('max',a4); end; end.

Var a,a1,a2,a3,a4:integer;
BEGIN
writeln('Введите число');
readln(a);
a1:= a div 1000;
a2:= a div 100 mod 10;
a3:= a div 10 mod 10;
a4:= a mod 10;
if (a1>=a2)and(a1>=a3)and(a1>=a4) then writeln('max = ',a1)
else if (a2>=a3)and(a2>=a4) then writeln('max = ',a2)
 else if a3>=a4 then writeln('max = ',a3)
  else writeln('max = ',a4);
END.

Пример:
Введите число
4934
max = 9