var
a, i: integer;
begin
read (a)
for i := 0 to 20 do
{
wrileln (a * 150 / 100);
a := a + 50;
}
end.
что то типо того
var
a, i: integer;
begin
read (a)
for i := 0 to 20 do
{
wrileln (a * 150 / 100);
a := a + 50;
}
end.
что то типо того