Составить программу, вычисления площади прямоугольника, если известно 2 стороны a и b. информатика, паскаль

program task1;

var a,b,s: real;

begin

readln(a);

readln(b);

s: =a*b;

writeln('площадь: ', s);

end.решение от тутути не верно, s=a*b 

Var    years,i: integer;     ststola,a,s: real; begin      writeln('ââåäèòå ñòî-òü ñòîëà: ');       readln(ststola);       writeln('ââåäèòå êîë-âî ëåò: ');       readln(years);       s: =0;       for i: =1 to years do          begin              a: =ststola*0.12;               a: =ststola-a;               ststola: =a;               writeln('стоимость стола через  ', i, ' лет ', a);           end; end.

Program cycle_for; var i,kn : byte; x: real; begin      kn: =0;           for i: =1 to 10 do              begin                    writeln('введите ',i,' число: ');                     readln(x);               if x> 0 then kn: =kn+1  {увеличиваем кол-во на 1}end;       writeln('вы ввели ',kn,' положительных чисел.'); readlnend.