"амнкеь"="камень" вот так вот
Var i,N1,N2,M,j:integer;
begin
writeln('Введите число N1');Read(N1);
writeln('Введите число N2');Read(N2);
M:= abs(n2 - n1)+1;j:=n1;
for i:=1 to M do begin
writeln(i:3,j:3);
j:=j + 1;end;<span>end.</span>
В оперативной памяти содержится приложения которые ты не можешь удалить
var s:string; i:integer;
begin
writeln('Введите строку:');
readln(s);
for i:=1 to length(s) do writeln(s[i]);
end.
Пример:
Введите строку:
primer
p
r
i
m
e
r