Можно ли так записать программу? var a,a1,a2,a3,a4:integer; BEGIN writeln('Введите...

Question

Можно ли так записать программу?



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.

Answer 1

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