додаток до уроку 6.txt.

program bank;

var d:integer;

gr:real;

begin

writeln('dolary grivni');

for d:=1 to 10 do

begin

gr:=5.05*d;

writeln(d:4, gr:15:2);

end;

readln;

end.

a:=3+cos(2*i).

program Elements;

var i,n:integer;

a:real;

begin

n:=10;

for i:=1 to n do

begin

a:=3+cos(2*i);

writeln(i:4,a:15:2);

end;

readln;

end.

program Suma1;

var s,n:integer;

begin

s:=0;

for n:=1 to 100 do

s:=s+n;

writeln('s=',s);

readln;

end.

program dobutok;

var i,n:integer;

a,d:real;

begin

d:=1;

n:=5;

for i:=1 to n do

begin

a:=2+abs(sin(3*i));

d:=d*a;

end;

writeln('d=',d:4:2);

readln;

end.