ИНФОРМАТИКА, ПАСКАЛЬ!!!!!!!!!!!!!!!!ПОЖАЛУЙСТА

Решить хотя бы 2 задачи!

Program z3;

Uses crt;

Var  

a,b:real;

begin

write('Введите первое число:');

readln(a);

write('Введите второе число:');

readln(b);

if a>b then writeln('Наибольшее число:',a)

else writeln('Наибольшее число: ',b)

end.

Program z4;

Uses crt;

Var  

a,c,k:integer;

begin

write('Введите количество шаров первого цвета:');

readln(a);

write('Введите количество шаров второго цвета:');

readln(c);

if a>c then k:=c+1

else k:=a+1;

writeln ('Необходимо достать ', k, ' шаров');

end.

Program z5;

Uses crt;

Var  

a,b,c,k:real;

begin

write('Введите первое число:');

readln(a);

write('Введите второе число:');

readln(b);

write('Введите третье число:');

readln(c);

if a>b then k:=a

else k:=b;

if c>k then writeln('Наибольшее число:',c)

else writeln('Наибольшее число: ',k)

end.