uses crt;
{роздiл опису змiнних, типів та констант}
begin
clrscr;
assign(f1,'input.txt'); reset(f1);
assign(f2,'output.txt'); rewrite(f2);
readln(f1,kt);
for i:=1 to kt do
begin
{роздiл опису вказiвок}
end;
close(f1); close(f2); readln
end.

Завдання
Скласти паскаль-програму для обрахунку суми елементів головної діагоналі квадратної матриці розміром NxN. (1 Приклад паскаль-програми
uses crt;
const n=50;
var a:array[1..n,1..n] of byte;
f1,f2:text; k,kt,m,i,j:byte; S:word;
begin
clrscr;
assign(f1,'input.txt'); reset(f1); {обов’язкова наявність файла input.txt}
assign(f2,'output.txt'); rewrite(f2);{в тiй самiй папцi щой файл turbo.exe}
readln(f1,kt); {процедура зчитує кiлькiсть варiантiв}
for k:=1 to kt do
begin
{---------------зчитування даних iз файла input.txt-------------------}
readln(f1,m); {процедура зчитує розмiр масиву}
for i:=1 to m do begin for j:=1 to m do read(f1,a[i,j]); readln(f1)end;
{---------------алгоритм виконання поставленої задачi-----------------}
S:=0; for i:=1 to m do S:=S+a[i,i];
{---------------запис даних у файл output.txt-------------------------}
writeln(f2,s); {процедура записує суму елементiв в результуючий файл}
end;
close(f1); close(f2);
end.