Question

Сделать программу в паскале в котором 1)программа выдает сообщение "вы маль или дево" 2)пользователь в переменную st1 задает значение маль или дево 3)программа выдает сооб "ты пошла бы играть в куклы" 4) вводить ответ через переменную st2 да или нет 5) если st2=да ,а st1=девочка то выдается сооб "кого пригласишь с собой" 6)пользователем через переменную st3 вводит имя 7)программа выводит сооб "вы и [указывается имя] пошли играть! " 8)в противном случае (пункт 5) программа выдает сооб "а вы ничего не перепутали " 9)программа выдает сооб "game over"

Answer 1

Var ST1,ST2,ST3:string;
Begin
writeln('Вы мальчик или девочка?');
readln(ST1);

writeln('Ты пошла бы играть в куклы?');
readln(ST2);

if (ST2 = 'да') and (ST1 = 'девочка') then begin
writeln('Кого пригласишь с собой?');
readln(ST3);

writeln('Вы и ',ST3,' пошли играть!');
end
else
writeln('А вы ничего не перепутали?');

writeln('Game Over');
End.