Ответы и объяснения

Лучший Ответ!
2013-02-11T21:17:11+04:00

program schet;

uses crt;

var a, b, y: real;

begin

write('vvedite a = ')

readln(a);

write('vvedite b = ')

readln(b);

if a>b then

begin

y:=a+b;

writeln('y = ',y);

end;

if a=b then

begin

y:=a-b;

writeln('y = ',y);

end

else writeln('reshenii net');

readln;

end.