упростите логическое выражение

uses crt; var

  a,b: integer; begin  write('введи возраст саши: '); read(a);

  write('введи возраст маши: '); read(b);

  writeln;   if a> b then write('саша старше маши');   if a< b then write('маша страше саши');   if a=b then write('маша и саша - ровесники'); end.

var a: integer;

begin

    read(a);

    a: =a*a;

    a: = a*a;

    writeln(a);

end.

если его поставить так, чтоб краев рядом не было, куда-нибудь в центр. тогда он всегда будет вертется

(я так понял масив(матрица) "состоящая из 5 строк и 10 столбцов заполненная случайными числами в диапазоне от 0 до 29" вводитса з клавиатуры) (я на паскале на ошибки не проверял)

program dl9_aridrettnir;

var a: array [1..10,1..5] of inteher;

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

i,q,j: integer;  

begin

writeln ('vvedit masiv ot 0 do 29');

for i: =1 to 10 do

begin

for q: =1 to 5 do begin

readln (a[i,q]);

end; end;

for i: =1 to 10 do

begin sum[i]: =0;

for q: =1 to 5 do begin

for j: =1 to 10 do begin 

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

end; end; end;

readln

end.