Lab2_Delphi

program Lab2;
uses
  System.SysUtils;

Var
    Price , I : Integer;
Begin
    Price := 14;
    Writeln( 'Эта программа выведет таблицу стоимости порций сыра в рублях' );
    For I := 1 To 20 Do Begin
        Write(Price,' ');
        Price := Price + 14;
        If ( I mod 5 = 0) Then
            Writeln;
    End;
    Readln;
End.