20 типа возможно представление формата дата? 1 )13.02.2012 2 )13.2.12 3) 13.02.12 4) 13 фев 5)13 фев 12 6)февраль 2012 7) 2012 февраль 8) 13, 02, 2012

Правильный ответ 1.
Потому что сначала указана дата-13
Затем указан месяц-02
И указан год 2012

Первый ответ верен, Третий тоже, так можно записывать дату, в документах тоже так подписывают,  а 8- это не верно, через запятую не корректно записывать дату.

Var
A,B,C:integer;
Begin

WriteLn('Введите три числа');
ReadLn(A,B,C);
if (A<=B)and(B<=C) then Write(A,' ',B,' ',C)
else if (A<=C)and(C<=B) then Write(A,' ',C,' ',B)
else if (B<=A)and(A<=C) then Write(B,' ',A,' ',C)
else if (B<=C)and(C<=A) then Write(B,' ',C,' ',A)
else if (C<=A)and(A<=B) then Write(C,' ',A,' ',B)
else if (C<=B)and(B<=A) then Write(C,' ',B,' ',A)
End.

Var a,b,c,D:real;
Begin
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
Write('c = ');ReadLn(c);
D:=b*b-4*a*c;
if D>=0 then
   Begin
   WriteLn('x = ',(-b-sqrt(D))/(2*a));
   WriteLn('x = ',(-b+sqrt(D))/(2*a));
   End
else WriteLn('Действительных корней нет')
End.

var a,b,c,d,x,x1,x2:real;
begin
  write ('a='); read (a);
  write ('b='); read (b);
  write ('c='); read (c);
  d:=b*b-4*a*c;
  if d<0 then writeln ('NO')
         else if d>0 then
                       begin
                         x1:=(-b+sqrt(d))/(2*a);
                         x2:=(-b-sqrt(d))/(2*a);
                         writeln ('x1=',x1:0:2,' x2=',x2:0:2)
                       end
                     else
                       begin
                         x:=-b/(2*a);
                         writeln ('x=',x);
                       end
end.