Часы на циферблате: если использовать 24- часовую, то 8+7=15
var a,b,c,d:integer;
begin
writeln('Введите a');
read(a);
writeln('Введите b');
read(b);
writeln('Введите c');
read(c);
d:=b*b-4*a*c;
if (d>0) then
writeln ('2 корня')
else
if (d=0) then
writeln('1 корень')
else
writeln('нет корней');
end.
1)1
2)3
3)2
4)4
5)название
6)1-а 2-в 3-б
7)2
8)4
9)3
10)2
11)система вложенных папок
12)c