Необходимо безотлагательно прям! Какой сможете, сделайте, пожалуйста! Заблаговременно спасибо!

Для первого решу,а далее сам.... Программка ДЛЯ ПАСКАЛЯ!!!!!!!!!!
 Program dvoechnik;
       var a,b,s,p:real;
    begin
       writeln ('Площадь прямоугольника');
       writeln ('Введите ширину');
        readln (a);
       writeln ('Введите длинну');
        readln (b);
     s:=a*b;
     p:=(a+b)*2;
    writeln ('S=',s);
    writeln ('P=',p);
end.