Известный пират флинт положил некоторую сумму s в банк под 3% годовых. выведите на экран, какой станет сумма через n лет

program s1; var s, n, a: real; beginwriteln ('введите сумму s'); readln (s); writeln ('введите кол-во лет n'); readln (n); a: =(s/100*3)*n; writeln (a); end.

это если на учебном pascal abc, на турбо паскале чуть по- : ) 

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

uses graphabc;

type point=record

          x,y: integer;

          end;

procedure plitk(x,y,r: integer);

var p: array[1..9]of point;

    a,da: real;

    i: byte;

begin

a: =pi/2;

da: =pi/4;

for i: =1 to 9 do

begin

  p[i].x: =x+round(r*cos(a));

  p[i].y: =y-round(r*sin(a));

  a: =a+da;

end;

polygon(p,9);

end;

var r,i,j,x,y,d: integer;

begin

r: =20;

y: =r;

while y< =windowheight do

begin

  x: =r;

  while x< =windowwidth do

  begin

    plitk(x,y,r);

    x: =x+2*r;

  end;

  y: =y+2*r

end;

end

a)

const n=5;

var a: array [1..n,1..n] of integer;

i,j,k,s: integer;

begin

writeln('массив: ');

for i: =1 to n do

begin

for j: =1 to n do

begin

a[i,j]: =random(3)-2;

write(a[i,j]: 4);

end;

writeln

end;

for j: =1 to n do

begin

k: =0;

for i: =1 to n do

if a[i,j]< 0 then k: =k+1;

if k=n then

begin

s: =s+1;

if s=1 then write ('номера столбцов, все элементы которых отрицательны: ');

write (j,' ')

end

end;

if s=0 then write ('столбцов, все элементы которых отрицательны - нет');

end.

б)

const n=5;

var a: array [1..n,1..n] of integer;

i,j,kp,ko: integer;

begin

for i: =1 to n do

for j: =1 to n do read (a[i,j]);

writeln('массив: ');

for i: =1 to n do

begin

for j: =1 to n do write(a[i,j]: 4);

writeln

end;

for j: =1 to n do

begin

ko: =0;

kp: =0;

for i: =1 to n do

begin

if a[i,j]< 0 then ko: =ko+1;

if a[i,j]> 0 then kp: =kp+1

end;

if ko=n then writeln ('в ',j,' столбце все элементы отрицательные');

if kp=n then writeln ('в ',j,' столбце все элементы положительные')

end

end.