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

S=длина×широта Площадь=(длина+широта)×2

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