program project1 mode objfpc uses IFDEF UNIX IFDEF UseCThreads cthread

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
program project1;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes
{ you can add units after this };
var a,b:integer;
begin
writeln('Введите первый множитель');
readln(a);
writeln('Введите второй множитель');
readln ( b);
writeln ('Произведение ',a,' и ', b, ' равно ',a * b );
readln();
end.