program seee;uses crt;var p,b,c:real; i,v:integer;beginclrscr;readln(p);writeln;writeln('mass price ');writeln;while v<>1000 dobegin v:=v+50; writeln(v,'g ',v*p/1000:2:2);end;readkey;end.
program seee;
uses crt;
var p,b,c:real;
i,v:integer;
begin
clrscr;
readln(p);
writeln;
writeln('mass price ');
writeln;
while v<>1000 do
begin
v:=v+50;
writeln(v,'g ',v*p/1000:2:2);
end;
readkey;
end.