Помогите с PascalABC, желательно сегодня.

1. https://ideone.com/l2wx2u
program q_210540617_1;
var
x : integer;
y : real;
begin
read(x);
y := sqrt(x + 5) - sqrt(x + 3);
writeln(y);
end.

2. Очень непонтяное условие

3. https://ideone.com/29bS38
program q_210540617_3;
var
a, b, c, x1, x2, d : real;
begin
read(a, b, c);

d := b*b - 4*a*c;
x1 := (-b - sqrt(d))/(2*a);
x2 := (-b + sqrt(d))/(2*a);

writeln('[', x1, ', ', x2, ']');
end.

4. https://ideone.com/VmPNIN
program q_210540617_4;
var
A : integer;
begin
read(A);

if (A div 100 mod 2 = 0) or (A div 10 mod 2 = 0) or (A mod 2 = 0) then
writeln('Yes')
else
writeln('No');
end.

5. https://ideone.com/un9rOY
program q_210540617_5;
var
m : integer;
begin
read(m);

case m of
1, 3, 5, 7, 8, 10, 12: writeln(31);
4, 6, 9, 11: writeln(30);
2 : writeln(28);
end;

end.

Хера помощь - учиться за тебя нахалявку)
Была б оплата указана то можно было бы еще подумать

Нравится мне задание №2
один угол между 4 сторонами? или все углы равны? если равны 90 - прямоугольник ( и-то если противолежащие стороны равны), в остальных случаях это незамкнутая ломаная

Здесь тот самый случай, когда код надо писать долго, тщательно и ответственно, причём без литрухи, пятихатки и как можно быстрее!
Недавно вот тоже тут читал просьбу о составление прОги для обращения квадратных матриц, будьть это так легко и просто- дунул, плюнул и пошлО! Нет, так дела не делаются!..