for Составить таблицу стоимости порции сыра весом в 50, 100, 15, …, 1000 г (цена одного килограмма сыра определяется по запросу). Результат вывести в виде таблицы — Pascal(Паскаль)

0 1 2 3 4 5 6 7 8 9
50
100
……………………………..
1000

Program sir;
Uses crt;
Var k,m:integer;s:real;
Begin
Clrscr;
Repeat
Write('Введите цену одного кг. сыра (в рубл.): ');Read(k);
Write('Введите массу (в граммах): ');Readln(m);
s:=(m*k)/1000;
Writeln('Стоимость сыра массой в ',m,' г. = ',s:3:1,' р.');
Writeln;
Until m=1000;
End.

var
  i,x:integer;
  price:real;
begin
  readln(price);
  x:=50;
  for i:=1 to 20 do
  begin
    writeln('Масса сыра ',x,' стоимость= ',(price*x)/1000);
    inc(x,50)
  end;
end.