Integer показывает, что тип данных является целым, второй вариант отпадает
по идее первый и третий подходят
Var
s: integer;
begin
readln(s);
case s mod 10 of
1: writeln('Копейка');
2..4: writeln('Копейки');
5..9, 0: writeln('Копеек');
end;
<span>end.</span>
Из строки 0110 видно, что b стоит в 1 столбце (из-за первой скобки)
из строки 0010 видно, что c стоит в 3 столбце (из-за второй скобки)
остаётся a, она стоит во втором столбце
Ответ: bac
Var a,b,c:integer;
beginb:=100;
writeln('введите число');
readln(a);
repeatif (a>b) then writeln(b);
b:=b+1;
until (b>999);
<span>end.</span>