Помогите сделать программу в Паскале В котором 1)Программа выдает сообщение "Вы маль или...

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.