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.

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

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<P then write('ответ: ',S,'<',P)
else write('ответ: ',S,'=',P);
readln;
end.