Найти площадь прямоугольника ah, ввести нужно в турбо паскале (информатика 9 класс)

Площадь прямоугольника это произведение длин ширины и длины, а высота в прямоугольника это есть другая сторона (для ширины - длина, для длины - ширина).

program myprogramm1;

var

a, b, s:real;

begin

writeln ('Введите длину стороны a') ;

write ('a = ') ;

readln (a) ;

writeln ('Введите длину стороны b') ;

write ('b = ') ;

read (b) ;

s:=a*b;

write ('Площадь прямоугольника со сторонами ', a,' и ', b,' равна = ', s) ;

readln;

readln;

end.