Создать блок схему и программу. p=1*(1+2)*(1-13)

Бред полный делать на это блок схему, но если так надо..

uses crt;
var p:real;
begin
p:=1*(1+2)*(1-13);
writeln(p);
end.