Создайте программу по решению задачи Определить ,являются ли прямоугольники квадратами

Question

Создайте программу по решению задачи Определить ,являются ли прямоугольники квадратами

Comments

Не программу?

---

Програму

---

Программу *

---

На Паскале?

---

Лазарус

---

На будущее: Лазарус это Free Pascal.

---

что за ошибка ,подскажите что делать unit1 .pas(52,0)Fatal: Syntax error ,";"expected but" end of file"found

Answer 1

Var a,b:real;
Begin
Write('Длина = ');ReadLn(a);
Write('Ширина = ');ReadLn(b);
if a=b then Write('Является квадратом')
else WriteLn('Не является квадратом')
End.

Comments

Спасибо ,)

---

что за ошибка ,подскажите что делать unit1 .pas(52,0)Fatal: Syntax error ,";"expected but" end of file"found