<span><span>Program p_2;
Var
z, a : Real; m : integer;
Function Step (n: integer; x:real): real;
Var
i: integer; y: Real;
Begin
i:=1; y:=1;
While i<=n do
Begin
y:=y*x; I:=I+1;
End;
Step:=y;
End;</span><span> {Конец функции}</span><span>
Begin
Write(‘Введи степень и возводимое число’); Readln(Z,M);
F:=Step(m,z);
Writeln(z, ‘ в степени’, m, ‘=’,f);
End.</span>
</span>
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var a:=ReadInteger('Яблок было');
var d:=ReadInteger('Детей гуляло');
Writeln('Каждый получил яблок: ',a div d);
Writeln('На компот пошло яблок: ',a mod d)
end.
<u><em>Тестовое решение:</em></u>
Яблок было 37
Детей гуляло 7
Каждый получил яблок: 5
На компот пошло яблок: 2
D и A т,к они расположены на противоположных вершинах квадрата и кратчайшее расстояние 13 (9+4)
Возможно, тебе это поможет.
Вариант сложения чисел в Паскале