mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 17:28:14 +02:00
15 lines
205 B
ObjectPascal
15 lines
205 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)');
|
|
end.
|