Program pr_3; Var n:integer; Writeln('Введите значения'); readln(n); case n of 1:Writeln('897'); 2:Writeln('910'); 3:Writeln(923''); 4:Writeln('936'); 5:Writeln('948'); 6:Writeln('961'); readln; end; degin case n of 1:Write('897'); 2:Write(' '); 3:Writeln('910'); 4:Write(' '); 5:Write(923''); 6:Write(' '); 7:Write('936'); 8:Write(' '); 9:Write('948'); 10:Write(' '); 11:Write('961'); end. так попробуй
Var n:integer;
Writeln('Введите значения');
readln(n);
case n of
1:Writeln('897');
2:Writeln('910');
3:Writeln(923'');
4:Writeln('936');
5:Writeln('948');
6:Writeln('961');
readln;
end;
degin
case n of
1:Write('897');
2:Write(' ');
3:Writeln('910');
4:Write(' ');
5:Write(923'');
6:Write(' ');
7:Write('936');
8:Write(' ');
9:Write('948');
10:Write(' ');
11:Write('961');
end.
так попробуй