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.
