Блок схема на Паскал

[didka17]

имам да направя програма на Паскал ама малко се се затруднявам ако може малко помощ много моля .Условието е : Да се състави блок схема и програма на Паскал за намиране на периметър и лице на правоъгълен триъгълник по зададени страни а,b и c .Да се провери дали страните са положителни числа.

[thefreak2]

Клик

[JustJK]

//Dev-Pascal 1.9.2
//P,S
program Pabc_Sabc;
uses crt;

var
a,b,c : real;
P,S : real;

begin
ClrScr;

write('Vuvedete strana a :');readln(a);
write('Vuvedete strana b :');readln(b);
write('Vuvedete strana c :');readln(c);

if ((a>0) and (b > 0) and (c>0)) then
begin
P := a+b+c;
S := a*b/2;
writeln('P = ', P);
writeln('S = ', S);
end
else
begin
writeln('Ne moje da napravim triugulnik s tezi strani !');
end

end.

Ето ти и кода за програмата.