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

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



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 a1gt;a2
a1gt;a3
a1gt;a4
then
begin
writeln('max=',a1);
end;
if a2gt;a1
a2gt;a3
a3gt;a4
then
begin
writeln('max',a2);
end;
if a3gt;a1
a3gt;a2
a3gt;a4
then
begin
writeln('max',a3);
end;
if a4gt;a1
a4gt;a2
a4gt;a3
then
begin
writeln('max',a4);
end;
END.