Задача на скриншоте. Решение на языке паскаль(7 класс)

Program zadacha;

var

kol:integer;

cena:real;

St:real;

begin

writeln ('Введи цену '); readln(cena);

for kol:=2 to 20 do begin

  St:= cena*kol;;

  Writeln (kol,' кол-ва товаров = ',St);

end;

end.