Var a,r,y: real;
begin
readln(a);
r:= (1 - (1/4 * sqr(sin(2*a)) + cos(2*a)));
y:= sqr(cos(a)) + sqr(cos(a))*sqr(cos(a));
writeln(r,y);
<span>end.</span>
Var t,n:integer;
begin
n:=1;
t:=3;
writeln('t','n':6);
while t<25 do
begin
n:=n*2;
writeln(t,n:6);
t:=t+3;
end;
readln;
<span>end.</span>
56кб=458752бит это просто!
Думаю, что похоже ;)
program love;
uses GraphABC;
begin
line(20,60,20,180);
line(20,180,60,180);
line(60,180,120,100);
line(220,100,300,180);
line(300,180,380,260);
line(120,320,120,420);
line(120,420,100,420);
line(220,340,220,420);
line(220,420,260,420);
rectangle(60,180,300,320);
rectangle(120,20,220,100);
<span>end.</span>