Привет. Задача в паскале. Что не так? Почему-то выходит ошибка.

Question

Найти площадь прямоугольника.
var A,B,S: real;
begin
Write('Введите ширину: ');
Readln(A);
Write('Введите длину: ');
Readln(B);
Writeln('площадь равна: ',S:5:2);
end.

diablo_732 · Accepted Answer

var A,B,S: real;
begin
Write('Введите ширину: ');
Readln(A);
Write('Введите длину: ');
Readln(B);
Writeln('площадь равна: ',A*B);
end.

ded_mazai_357 · Answer

где вычисление площади?