mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 03:59:28 +02:00
17 lines
241 B
ObjectPascal
17 lines
241 B
ObjectPascal
var
|
|
a,b,c,d,e,f,g,r : double;
|
|
|
|
begin
|
|
a:=10.0;
|
|
b:=11.0;
|
|
c:=13.0;
|
|
d:=17.0;
|
|
e:=19.0;
|
|
f:=23.0;
|
|
r:=2.0;
|
|
a:= a - 2*b*e - 2*c*f - 2*d*g - Sqr(r);
|
|
writeln(a,' (must be -1010)');
|
|
if a<>-1010.0 then
|
|
Halt(1);
|
|
end.
|