Составить программу, которая запрашивает название государства и его столицы, а затем выводит сообщение: "столица государства — город " (на месте многоточий должны быть выведены соответствующие значения). pascal

var g,s: string;

begin

readln(g);

readln(s);

writeln('столица государства ',g,' - ','город ', s);

end.

на вход "черного ящика"подается число 125. о чем в этом случае говорит отказ: кажеться а

program mdd; uses crt; var i: longint; beginclrscr; for i: = 10 to 99 dobeginif i mod 13 = 0 then writeln(i); end; readkey; end.