If x>y then begin writeln ('Не попал! Число больше!');goto m; end;
<span>if x<y then begin writeln('Не попал! Число меньше');goto m; end;</span>
Волк-полк-пола-поза-коза.
Человек,любящий свою Землю,страну,родину,город,улицу,дом .....
Патриоты России : Ленин, Троцкий,Нахамкис,Абрам Борисович Гейро, Ленком и Фрунзе
function Pow(A, St: Integer) : Integer - объявляется функция Pow, которая принимает 2 аргумента A и St типа integer, а также сама функция возвращает значение integer
Далее объявляется переменная I типа Integer
begin - начало тела функции
Result := 1; - переменной Result присваивается значение 1
Далее идёт ветвление:
Если St = 0 , то переменной Result присваивается значение 1
В противном случае идёт цикл от I = 1 до St, где каждый шаг увеличивает переменную Result в A раз
словом end; заканчивается тело функции
Короче говоря, данная функция возводит число A в степень St
А) гнездо
б) температура
в) ковёр