Program esep8; Uses crt; var x,y,z,S,P:double; begin clrscr; writeln('x,y,z-енгиз');...

Question

Program esep8;
Uses crt;
var x,y,z,S,P:double;
begin
clrscr;
writeln('x,y,z-енгиз');
readln(x,y,z);
S:=x+y+z;
P:=x*y*z;
If S>P then write('косынды улкен=',S,'>',P);
Else if s
',P)
else write('кобейтинди улкен',S,'>',P)
readln;
end.

Comments

Что именно требуется по заданию?

---

Исправить программу или определить результат работы?

Answer 1

Сама по себе программа не дописана. Возможно, нужно такое решение.

Program esep8;
Uses crt;
var x,y,z,S,P:double;
begin
clrscr;
writeln('Введите: x,y,z');
readln(x,y,z);
S:=x+y+z;
P:=x*y*z;
If S>P then
write('Ответ: ',S,'>',P)
еlse If S

else write('Ответ: ',S,'=',P);
readln;
end.

---