Delphi программа

Delphi программа.
Не получается программа. Я должен ввести дату (1.01 например) и он должен выдать название праздника.
program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;
var c:double;

begin
writeln('c=');
readln(c);
begin
if c=1.01 then writeln('New year') else
if c=8.03 then writeln('8-e marta') else
writeln('eto ne prazdnik');
end;
readln;
end.
вот код, на все, что я ввожу пишет "это не праздник"

  • Нужно срочно покакать!
  • {$APPTYPE CONSOLE}

    uses
    SysUtils;
    var c:string;

    begin
    writeln('c=');
    readln(c);
    if c='1.01' then writeln('New year') else
    if c='8.03' then writeln('8-e marta') else
    writeln('eto ne prazdnik');
    readln;
    end.

  • program Project2;

    {$APPTYPE CONSOLE}

    uses
    SysUtils;
    var c:double;

    begin
    writeln('c=');
    readln(c);
    begin
    if c='1.01' then writeln('New year') else
    if c='8.03' then writeln('8-e marta') else
    writeln('eto ne prazdnik');
    end;
    readln;
    end.

  • А ты после readln(c); напиши writeln(c); и все станет ясно, хотя и удивишься немного, конечно.
  • про "покакать" мудро сказано