50 желательно сделать на оценку 5

Программа на паскале.

3.

var

a, b, s : integer;

begin

Readln (a);

readln (b);

s:= a*b;

writeln ('площадь прямоугольника = ', s);

end.

4.

var

a, b ,c, s: integer;

begin

readln (c);

a:=c div 10;

b:= c mod 10;

s:= a + b;

writeln (s);

end.

5.

var

i,a, cmax: integer

begin

cmax:= -999;

for i:= 1 to 2 do

begin

readln (a);

if (a mod 2=0) and (a> сmax) then

cmax:= a;

End;

if cmax <> -999 then write (cmax)

Else write ('четные числа отсутствуют')

end.