Program kpa6;
var a,b,newa,newb : real;
Begin
writeln('Введите первое число : ');
readln(a);
writeln('Введите второе число : ');
readln(b);
newa := a;
newb := b;
if a = b then
begin
a := 0;
b := 0;
writeln('Числа равны. Заменил их нулями.');
end
else
begin
if a > b then
begin
a := newb;
b := newa;
writeln('1 число больше 2 , a = ', a,0,' b = ', b);
end
else
begin
if a < b then
begin
a := newb;
b := newa;
writeln('1 число больше 2 , a = ', a,' b = ', b);
end;
end;
end;
end.