Помощ ! Блок схема и програма на Паскал

[Chacho]

Е добре, бе, tomass995, точно в тази тема е написана задачата ти. Прегледай малко!

Начало->Въвеждане на а и b->Проверка дали а и b са положителни->Ако не, връщаме се на стъпка 2 - въвеждането (това връщане ще го нарисуваш със стрелка от 3 към 2 и пишеш до нея "НЕ", аз не мога тук във форума да направя такава); а ако да, правиш стрелка напред и пишеш до нея "ДА"->Извеждане на 2(a+b) и a.b->Край

program rect;

var

a,b:real;

begin

  write('a='); readln(a);
  write('b='); readln(b);

  while (a<=0) and (b<=0) do
    begin
    writeln('Vuvedete polojitelni stoinosti!!!');
    write('a='); readln(a);
    write('b='); readln(b); 
    end;

   writeln('P=',2*(a+b):2:2,'   S=',a*b:2:2);
   readln;
end.