Дана программа: 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. при каких исходных данных высказывание «этот четырёх угольник является прямоугольником» будет: а) истинным; б) ложным?

program nm12;

var a, d : integer;

begin

    writeln (' vvedite diametr kruga i storony kvadrata ');

    readln (d);

    readln (a);

    if d< =a then writeln (' krug pomestits9 v kvadrate ')

              else writeln (' krug ne pomestits9 v kvadrate ');

    readln;

end.

правильно треугольник)

иванов парикмахер, петров плотник, сидоров мельник, гришин почтальон, алексеев маляр.  и 2413      маляр 1

п   142     мельник 2

с   13     плотник 3

г 12      почта 4

а       парикмахер 5