задача по теме записи

[arai uzbekova]

программа которая заполнит столбцы "налог" и "сумма к выдаче ",причем налог высчитывается так:если начисленная сумма больше 10000,то налог составляет 5% от начисленной суммы,а иначе -3% от начисленной суммы.(это вроде я сделала)
а далее программа должна выполнить подсчет общей зарплаты всех работников
program p1;
type t:=record
FIO:string;
nach_s: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_summy',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 to3 do begin
with tablica[i] do writeln(fio:10,nach_s:10:2,nalog:10 :2,summa:10:2);
end;

[arai uzbekova]

нуууууууу??????(

[Naive]

Сообщение от arai uzbekova

нуууууууу??????(

внизу форума есть раздел "фриланс", там все сделают за тебя за небольшое вознаграждение)