записи

[Гульвира]

помогите закончить программу плз

program p1;
type T=record
fio:string;
nach_s:real;
nalog:real;
summa:real;
end;
var tablica:array [1..3]of T;
I:integer;
k:real;
j:real;
begin
tablica[1].fio:='Ivanov';
tablica[1].fio:='petrov';
tablica[1].fio:='sidorov';
for i:=1 to 3 do begin
writeln('vvedite nach_s',i,'-go);
readln(tablica[i].nach_s);
if tablica[i].nach_s>10000 then tablica[i].nalog:=10000*5/100
else tablica[i].nalog:=10000*3/100;
tablica[i].summa:=tablica[i].nach_s-tablica[i].nalog;
end;
writeln;
writeln('FIO':10,'Nach_s':10,'nalog':10,'summa':10);
for i:=1 to 3 do begin
with tablica[i] do writeln (fio:10,nach_s:10:2,summa:10:2);
end;

[revizor]

tablica[1].fio:='Ivanov';
tablica[1].fio:='petrov';
tablica[1].fio:='sidorov';

наверно вот так будет лучше:

tablica[1].fio:='Ivanov';
tablica[2].fio:='petrov';
tablica[3].fio:='sidorov';