Подскажите как сделать это на Паскале

Question

Машина задумывает два числа от 0 до 9. Игрок пытается их угадать, вводя свои два числа. Если они совпали (в любом сочетании) , то игрок выиграл.

Татьяна Гаврилушкина · Accepted Answer

uses 
 crt; 
var 
 x, y, a, b: integer; 
begin 
 randomize; 
 x := random(10); 
 y := random(10); 
 writeln(x, ' ', y); 
 while true do begin 
 write('угадай два числа: '); 
 read(a, b); 
 if ((a = x) and (b = y)) or ((a = y) and (b = x)) then begin 
 writeln('бинго! '); 
 break; 
 end 
 else begin 
 writeln('неверно'); 
 write('продолжим (y - для продолжения, любая другая клавиша для выхода) ? '); 
 if readkey <> 'y' then begin 
 writeln; 
 writeln('числа: ', x, ' ', y); 
 break; 
 end; 
 end; 
 writeln; 
 end; 
end.

Владимир Кувалдин · Answer

Не слушай их, они рабы, я лучше сделаю.

Эндже · Answer

вводишь перемнные две 
дальше пишешь что твоя переменная = рандому 
потому пишешь если твоя переменная равна числу которое сгенрирывал комп тогда во врайтлн пишет вы выиграли! 
Делай всё через Фор

Аня · Answer

с одним числом как-то так, с двумя сами подумайте 
 
program kkk; 
uses crt; 
var comp,player:integer; 
 
begin 
 clrscr; 
 randomize; 
 comp:=random(11); 
 write('Компьютер загадал число от 0 до 10. Введите ваше число: '); 
 readln(player); 
 while comp<>player do 
 begin 
 write('Не то число! Введите новое число: '); 
 readln(player); 
 end; 
 writeln('Вы угадали! '); 
 readln; 
end.