на языке pascal цикл с постусловием имеет следующий вид: :
repeat < тело цикла> until < условие выхода>на языке си:
do { < тело цикла> } while (< условие продолжения цикла> )в трактовке условия цикла с постусловием в разных языках есть различия. в паскале и языках, произошедших от него, условие такого цикла трактуется как условие выхода (цикл завершается, когда условие истинно, в терминологии такие циклы называют ещё «цикл до»), а в си и его потомках — как условие продолжения (цикл завершается, когда условие ложно, такие циклы иногда называют «цикл пока»).
Var in, out : text;
line, col : integer;
k : integer;
begin
Assign(in, "nome.in");
Assign(out, "nomer.out");
Reset(in);
Rewrite(out);
Read(in, line, col, k);
if k < col * line theb
begin
Write(out, (k - 1) div col + 1, ' ', (k - 1) mod col + 1);
end
else
Write(out, "слишком большое число")
end;
close(in);
close(out);
end.