Паскаль! составить таблицу стоимости порций сыра весом 50, 100, 150, ... 500г (цена 1кг=420руб 37 копеек)

Uses crt ;
Var n,i:integer;
Mone, gr:real;
Begin
Clrscr;
Gr:=0.42037;
While i < 500 do
Begin
I:=i+50;
Mone:=gr*i;
Writeln(i, гр. сыра стоит , mone:4:2);
End;
Readkey;
End.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.