Program pr_1;
var
x,y,sum, umn: integer;
begin
write ('x=');
readln (x);
write ('y=');
readln (y);
sum:=x+y;
umn:=x*y;
writeln ('sum=",sum);
writeln ('umn=", umn);
readln;
end.

x-37
y-38​

mariakochmar    3   26.03.2020 09:25    0