Question

Р=А*В*С. Если Р>=10, то вывести результаь на экран, иначе, выдать сообщение "Произведение меньше 10".

Answer 1

p:=a*b*c;
if(p>=10) then writeln(p) else writeln("Произв. меньше 10");

Answer 2

А можно с началом самим и концом?

Answer 3

var a, b, c, p:integer;

Answer 4

begin readln(a, b, c); p:=a*b*c;
if(p>=10) then writeln(p) else writeln("Произв. меньше 10"); end.