Question

Дана программа: program n_5; var a, b, с: integer; ans: boolean; begin write ('введите значения a, b, dl, d2> > '); readln (a, b, dl, d2); ans: = (a< > b) and (dl=d2); writeln ('этот четырёхугольник является прямоугольником - ', ans) end. при каких исходных данных высказывание «этот четырёх угольник является прямоугольником» будет: а) истинным; б) ложным?