Qbasic
CLS
Input "Либите ли вы мороженное"; A$
IF A$=да Then
Print "Ну чтож поедим вместе."
else
Print "Прекрасно отдайте свою порцию мне."
End if
end
