Ответ: //Pascalvar  x:char;begin writeln(‘Кто это, кошка или собака?’); readln(x); if x = ‘К’ then  writeln(‘Мяу-мяу!’); if x = ‘C’ then  writeln(‘Гав-гав!’);end.

Ответ: // F#open System;[<EntryPoint>]let main argv =    let rec getResult _ =        let answer = Console.ReadKey(true);        match answer.KeyChar with            | ‘К’ | ‘к’ -> «Мяу-мяу!»            | ‘С’ | ‘с’ -> «Гав-гав!»            | _ -> (getResult null)    printf «Это кошка или собака?»    printf «%s» (getResult null)    0