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.