сделайте пожалуйста срочно

  • вариант решения через if... then... else
    var 
    t: byte;
    begin  Write('Vvedite vremya: '); 
    Readln(t); 
    if (t < 0) or (t > 24) then     
    begin       
    Writeln('Oshibka! Nevernyj vvod dannyh!');       
    Readln;       
    Exit;     
    end;
    if (t >= 0) and (t <= 10) then Writeln('Vy uzhe prosnulis?')
    else if (t >= 13) and (t <= 15) then Writeln('Ne pora li obedat?')
    else if (t >=18) and (t <= 24) then Writeln('Vecher i noch vperedi!')
    else Writeln('Kak rabotaetsya?');
    Readln;
    end.

    вариант решения через case...of
    var 
    t: byte;
    begin 
    Write('Vvedite vremya: '); 
    Readln(t); 
    if (t < 0) or (t > 24) then     
    begin       
    Writeln('Oshibka! Nevernyj vvod dannyh!');       
    Readln;       
    Exit;     
    end;
    case t of
    0..10: Writeln('Vy uzhe prosnulis?');
    13..15: Writeln('Ne pora li obedat?');
    18..24: Writeln('Vecher i noch vperedi!')
    else Writeln('Kak rabotaetsya?');
    end;
    Readln;
    end.