program a1; uses crt;var p1,p2,p3,s: real;begin write('zena1= '); readln (p1); write('zena2= '); readln (p2); write('zena3= '); readln (p3); s:=p1+p2+p3; f s>=800 then s:=s-0.1*s;writeln('summa=',s); end.Оцените пожалуйста ответ.
Добрый день. Меня заинтересовал ваш ответ "program a1; uses crt;var p1,p2,p3,s: real;begin write('zena1= '); readln (p1); write('zena2= '); rea..." на вопрос http://www.liveexpert.org/topic/view/584658-napisat-programmu. Можно с вами обсудить этот ответ?