Информатика. Программирование линейных алгоритмов. ​

program n_5;
var a, b, c: integer; ans: boolean;
begin
write ('Введите значение а, b, d1, d2>>');
readln (a, b, d1, d2);
ans:=(a<>b) and (d1=d2);
writeln ('Этот четырехугольник является прямоугольником – ' , ans)
end.

При каких исходных данных высказывание « Этот четырехугольник является прямоугольником» будет:
а) истинным;
б) ложным?

v - объём цилиндрачисло пи = 3,14язык программирования: паскальvarv, r, h : real; beginreadln (r); readln (h); v : = 3.14 * sqr(r) * h; writeln (v)end.

почитай тут 

program mdd; uses crt; var a,b,c,d: longint; beginclrscr; readln(a,b,c,d); if (a> b) and (a> c) and (a> d) and (d< a) and (d< c) and (d< b) then writeln('правда')else writeln(''неправда); readkey; end.

периметр треугольника равняется сумме длин всех трех его сторон. он вычисляется по формуле p=a+b+c, в которой a, b и c – это стороны фигуры.