Решить с программы repeat. килограмм творога стоит 300 тенге нужно найти стоимость творога 100 гр, 200 гр, 300 гр, 400 гр, и так до 1000 гр.

Var a : integer;
begin
repeat
a:=a+100;
writeln(a*0.3, ' руб за ', a, ' гр')
until a = 1000
end.