https://pastein.ru/t/_E
скопируйте уникальную ссылку для отправки
program morskoyboy;
var pc1,pc2, user1, user2: integer;
begin
write('числa=');
read(user1, user2);
pc1:=random(10);
pc2:=random(10);
if (pc1=user1) and (pc2=user2)
then
writeln('попал')
else
writeln('не попал');
end.