Решение задач на Pascal #6 | Цикл While

Решение задач на Pascal #7 | Цикл FOR

Программный код для задачи с циклом FOR:

var
    a, b, c: integer;
   q: real;

begin
   readln(a);
    for b := 1 to 100 do
     begin
      c := b * a;
      q := c / 20;
      writeln(b, '-', c, '-', q);
     end;
end.