Написать письмо учителю информатики!

господи, да о чем угодно.  

напиши, что нравятся компьютеры, информатика, компьютерные игры и общение в социальных сетях. напиши, что возможно станешь программистом. ну или кем там ты хочешь.  

ей же главное - просто получить твое письмо, наверняка просто проверить, умеешь ли ты пользоваться электронной почтой. а не твой рассказ как таковой ее интересует.  

еще возможен вариант, что она хочет проверить, насколько ты владеешь деловым этикетом. не забудь поздороваться. и в конце письма поставить свою имя-фамилию и электронный адрес. так принято.  

и письмо должно быть кратким.  

можешь начать так:  

уважаемая

выполняя данное вами , присылаю вам краткий рассказ о себе.

type

ar = array of array of integer;

var

sum:array [1..6] of integer;

n,i,j:integer;

a: ar;

begin

write('N: '); readln(n);

setlength(a,n,n);

dec(n);

for i:=0 to n do

for j:=0 to n do

begin

readln(a[i,j]);

if i+j<n then sum[5]:=sum[5]+a[i,j]

else

if i+j>n then sum[6]:=sum[6]+a[i,j]

else sum[2]:=sum[2]+a[i,j];

if i<j then sum[3]:=sum[3]+a[i,j]

else

if j<i then sum[4]:=sum[4]+a[i,j]

else

sum[1]:=sum[1]+a[i,j];

end;

writeln;

for i:=0 to n do

begin

for j:=0 to n do

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

writeln;

end;

writeln;

for i:=1 to 6 do

write(sum[i]:6);

end.

Если решение оказалось полезным, пометьте его лучшим