Нужно срочно прям! Какой сможете, сделайте, пожалуйста! Заранее спасибо!

Для первого решу,а дальше сам.... ПРОГРАММА ДЛЯ ПАСКАЛЯ!!!!!!!!!!  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.