задача 1 урок 11

program training;

{$mode objfpc}{$H+}

uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes
{ you can add units after this };

begin;
i := readln('luboe hislo');
if i begin;
writeln(i + 7);
end;
if i > 15 then;
end;
end.