Question

Вводится вопрос "Вы изучали информатику в школе?"

Если ответить 1 то должно вывести "вы врете" если ответить 2 то должно быть "вы будете изучать её в университете".
На паскале

Answer 1

• program JordanCarter;
• var a:Integer;
• begin
• Writeln('Вы изучали информатику в школе?');
• Readln(a);
• if a=1 then WriteLn('Вы врeте') else WriteLn('Вы будете изучать её в университете');
• end.