ARTEM713, Ппц у вас. Навскидку напишу код (проверять надо будет, т.к. я без паскаля)
Code
Uses CRT;
Const ask1 = 'Lyubish Visual Basic?';
ask2 = 'Hochesh poceluy?';
Var ans: String; {yes/no}
Begin
ClrScr;
Repeat
Writeln(ask1,' (yes/no)');
Readln(ans);
Until (ans = 'yes');
Repeat
Writeln(ask2,' (yes/no)');
Readln(ans);
Until (ans = 'yes');
End.
