mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:48:18 +02:00
12 lines
142 B
ObjectPascal
12 lines
142 B
ObjectPascal
{ %OPT=-O3 -Oocse }
|
|
program project1;
|
|
|
|
var
|
|
S: Single;
|
|
I: Integer;
|
|
begin
|
|
S := 400;
|
|
I := 600;
|
|
writeln(Round((I / 2) - (S / 2)));
|
|
end.
|