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

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