program chastikov mode objfpc uses IFDEF UNIX IFDEF UseCThreads cthrea

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
program chastikov;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes
{ you can add units after this };
var a,b:integer;
begin
Readln(a);
Readln(b);
Writeln('Результат умножения ',a*b);
Readln();
end.