Помогите пожалуйста! Составить программу:даны два числа a и b; если a>b, то вывести **...

Question

Помогите пожалуйста! Составить программу:даны два числа a и b; если a>b, то вывести на экран квадрат числа a; в противном случае вывести на экран квадрат числа b.

Answer 1

Var a, b:integer;beginwriteln('Число a: ');readln(a);writeln('Число b: ');readln(b);
if a > b thenwriteln(sqr(a))elsewriteln(sqr(b));end.

Comments

function myFunc

---

что это такое?

---

сейчас сделаю попроще

---

изменил

---

Больше спасибо!)