var a,b,c,max: integer;
begin
readln(a,b,c);
if a>b then max:=a else max:=b;
if c>max then max:=c;
writeln('max = ',max);
end.
Пример:
12 45 31
max = 45
var x, y, s: integer;begin readln(x, y); s := (2*x + y) * (x-y); writeln(s);end.
var n,c:integer;
c:=0;
readln(n);
if n>0 then
c:= c +1;
n:=n div 10
else
write('c=',c);
end;