Написать программу, которая вычисляет площадь прямоугольника

Var a, b:integer;
    s:integer;

begin
writeln('Введи длину');
readln(a);
writeln('Введи ширину');
readln(b);
s:=a*b;
writeln('Площадь=', s);
end.