<em /><em>VAR</em>
<span><em> mx, ind: Integer;</em></span>
<span><em> n, m, i, j: Integer;</em></span>
<em>
b: Array of Integer;</em>
<em>
a: Array of Array of Integer;</em>
<em>BEGIN</em>
<em>
Read(n); SetLength(a, n+1); </em>
<em> For i := 1 to n do SetLength(a[i], n+1);</em>
<em></em>
<em>
For i := 1 to n do</em>
<em> For j := 1 to n do Read(a[i][j]);</em>
<em></em>
<em> SetLength(b, n+1);</em>
<em> For i := 1 to n do b[i] := a[i][i];</em>
<em></em>
<em> mx := b[1]; ind := 1;</em>
<em> For i := 2 to n do </em>
<em> If (mx < b[i]) then begin </em>
<em> mx := b[i]; ind := i; End;</em>
<em></em>
<em> Write('Макс. элемент гл. диагонали - B[',ind,'] = ', mx);</em>
<em>END.</em>
<em></em>
Или намного проще (если нужен только ответ):
<em>VAR</em>
<em> mx, ind, el: Integer;</em>
<em> n, m, i, j: Integer;</em>
<em>BEGIN</em>
<em> Read(n);</em>
<em></em>
<em> // Присваем макс. элементу самое минимальное число,</em>
<em> // которое точно не встретится в массиве</em>
<em> mx := -999999999;</em>
<em></em>
<em> For i := 1 to n do</em>
<span><em> For j := 1 to n do begin </em></span>
<span><em> Read(el);</em></span>
<span><em> If (i <> j) then Continue;</em></span>
<span><em> If (mx < el) then begin </em></span>
<span><em> mx := el; ind := i; End; End;</em></span>
<em></em>
<span><em> Write('Макс. элемент гл. диагонали - B[',ind,'] = ', mx);</em></span>
<em>END.</em>
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
var m:=ReadInteger('Число минут:');
Writeln(m div 60,'ч ',m mod 60,'м')
end.
<u><em>Тестовое решение:</em></u>
Число минут: 150
2ч 30м
Трудно сказать не видя структуры твоего калькулятора. Если у тебя два поля для ввода чисел (edit1 и edit2), а результат записываешь в Memo1 (кстати, а зачем именно тип Memo?), то можно сделать следующим образом (пример для кнопок "+" и "-")
procedure TForm1.PlusClick(Sender: TObject);
var x,y:real;
r:string;
begin
val(edit1.Text,x);
val(edit2.Text,y);
str(x+y,r);
Memo1.Lines[0]:=edit1.Text+'+'+edit2.Text+'='+r;
end;
procedure TForm1.MinusClick(Sender: TObject);
var x,y:real;
r:string;
begin
val(edit1.Text,x);
val(edit2.Text,y);
str(x-y,r);
Memo1.Lines[0]:=edit1.Text+'-'+edit2.Text+'='+r;
end;
Толя не женится на Дине, она его сестра.
Толя не женится на Вере, они оба старшие, Толя среди мальчиков, Вера среди девочек, а по условию задания общий возраст пар одинаков.
Значит Толя женится на Жанне.
Диме и Жанне вместе столько же лет, сколько Боре и Диме, значит Боря и Жанна ровесники.
Бориной жене столько же лет, сколько Толе. Значит это не сестра Толи.
Получается, что Боря женат на Вере.
Дима на Дине.