Программа на паскале:
"Даны длина и ширина прямоугольников. Является ли он квадратом?"

Вбил программу в свой Pascal - работает

Для красоты можно поставить пробел перед тире во втором операторе write (я упустил из виду) и слова "введите" написать с большой буквы.Программа не изменится, но красивее будет

В моём паскале всё работает. Спасибо, а то было лень разбираться с операторами if и else, потому что до сих пор не понимаю как это работает. Ещё раз, огромное спасибо!

Если это представить на русском языке, то мою программу можно читать так:Если a=b тогда if a=b then выведи ('текст') write ('текст')Иначе {если а не равно b} else {если а не равно b} выведи ('текст') write ('текст')Можно составить что-то по-сложнееЕсли a>b тогда if a>b then вывод ('text') write ('text')Иначе elseЕсли a вывод ('text') write ('text')Иначе else {Если не подходит ни одно условие из тех, что выше} вывод ('text') write ('text')Надеюсь, теперь немного понятно)

 Program n_5; var      a, b: real; begin    write ('введите длину прямоугольника - ');    readln (a);    write ('введите ширину прямоугольника- ');    readln (b);    if a=b then       write ('Данный прямоугольник является квадратом')    else       write ('Данный прямоугольник не является квадратом');end.