Вводится четырехзначное число. Вывести ** экран наибольшую цифру этого числа.паскаль

Question

Вводится четырехзначное число. Вывести на экран наибольшую цифру этого числа.паскаль

Answer 1

program dz2;

var a,b,c,d,f,max:Integer;

begin

Writeln('введи число');

read(a);

b:= a div 1000;

c:= (a div 100) mod 10;

d:= (a div 10) mod 10;

f:= a mod 10;

max:=b;

if b

max:=c;

if c

max:=d;

if d

max:=f;

Write(max);

end.