Даны стороны прямоугольника a и b. Найти его площадь S = a·b и периметр P = 2·(a + b) — Pascal(Паскаль)

program prymploashad;
var a, b, S, P: real;
begin
    write('Введите a: ');
    readln(a);
    write('Введите b: ');
    readln(b);
    s := a * b;
    p := 2 * (a + b);
    write('Площадь прямоугольника -- ', s, '; Периметр прямоугольника -- ', p);end.