Помогите решить задачку простенькую.

program perimetr_and_ploshad;
{это чтоб в новом окне прога запускалась}
uses crt;
{объявление переменных}
var
a, b, s, p : real;
begin
{это чтоб в новом окне прога запускалась}
clrscr;
{Ввод чисел a и b}
a:= 2.30;
b:= 4.90;
writeln ('a= 2.30, b=4.90');
writeln;
{вычисление площади и периметра}
s:= a * b;
p:= 2 * (a + b);
{Вывод результата}
writeln('Площадь равна ', s);
writeln('Периметр равен ', p);
end.

Programm имя программы; //должно быть на английском не забываем точку запятую в конце
Uses Crt;//место подключения модулей crt - это базовый модуль для сложной математики может понадобится math
var //вот здесь объявляем переменные например a: real; или i,j:integer; несколько переменных одного типа можно обявить через переменную. кстати модули подключаются тоже через запятую.
begin // началась программа
writeln("выводим на экран какойто текст ln означает что коретка сдвинится на строку вниз");
readln(a,b,c,d); .считываем переменные из строки разделенные пробелами данные могут быть разные, считывание произойдет после нажатия энтера;
writeln("выводим какой нибудь текст и переменные",a,b,c,d);
end. //конец программы точка вконце обязательна

program perimetr_and_square
{объявление переменных}
var
a, b, p, s : real;
begin
{ввод чисел а и b}
a = 2.30;
b = 4.90;
{вычисление периметра и площади}
s = a * b;
p = 2 * (a + b);
{вывод результата}
writeln('s = ', s);
writeln('p = ', p);
end.