Turbo Pascal. Примеры выполнения задач_5 / V41 / V41_N2

Program V41_N2;
uses crt;
var
 A1,A2,A3       :real;
 k              :byte;
BEGIN
 clrscr;
 k:=0;
 write('‚ўҐ¤ЁвҐ A1,A2,A3: ');
 readln(A1,A2,A3);
 if (A1>=5)and(A1<10) then k:=1
    else if (A2>=5)and(A2<10) then k:=1
         else if (A3>=5)and(A3<10) then k:=1;
 if k=0 then writeln('’ Є®© ЇҐаҐ¬Ґ­­®© ­Ґв!!!')
        else writeln('’ Є п ЇҐаҐ¬Ґ­­ п Ґбвм!!!');
 readln;
END.