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

[didka17]

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

[thefreak2]

Клик (http://1001zadachi.com/%D0%B7%D0%B0%D0%B4%D0%B0%D1%87%D0%B8-%D1%82%D0%B5%D1%81%D1%82%D0%BE%D0%B2%D0%B5-%D0%BE%D0%BB%D0%B8%D0%BC%D0%BF%D0%B8%D0%B0%D0%B4%D 0%B8-%D0%B8%D0%BD%D1%84%D0%BE%D1%80%D0%BC%D0%B0%D1%82%D 0%B8%D0%BA%D0%B0/%D0%B1%D0%BB%D0%BE%D0%BA_%D1%81%D1%85%D0%B5%D0%BC% D0%B0_%D0%B0%D0%BB%D0%B3%D0%BE%D1%80%D0%B8%D1%82%D 1%8A%D0%BC.html)

[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.

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