Question

Напишите программу, пожалуй та

Answer 1

1)
Program n1;
var x,y,z: real;
begin
readln(x,y);
if x+y<0 then z:=0.8+x else if x+y>5 then z:=x*x+y*y+5 else z:=y*x;
write('z=',z);
end.
2)
Program n2;
var a,b: real;
begin
readln(a,b);
if a-b>0 then write('разность положительная') else
write('разность не положительная');
end.