1) составьте блок-схемы ниже программ:

а) var а, в, с : real;

begin

readln(а, в);

if a> b then c: =a

else c: =b;

writeln(с)

end.
и вот,
б) var x, y, с : real;
begin
readln(x, y) ;
if x> y then begin с : =x;
x: =y;
y: =c
end;
write(x,y)
end.