Программа для нахождения площади и периметра прямоугольника в паскаль

//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var (a,b):=ReadReal2('введите длину и ширину прямоугольника:');
write('S=',a*b,'; P=',2*a+2*b);
end.

Program
Var a,b,s
Begin
Readln(a,b)
S:=s+a
End;
Writeln(s)
End.
По такому же принципу находит и площадь.