Var s:string; i:integer;
begin
writeln('Введите слово:');
readln(s);
for i:=1 to length(s) do write(s[i],' ');
<span>end.
Пример:
Введите слово:
primer
<span>p r i m e r
</span></span>
А что соединить? Ничего нет!
Var a, b, c, d, i : integer;
Begin
read(a);
read(b);
read(c);
read(d);
for i := a to b do
if (i mod c = d) then
writeln(i);
writeln();
for i := a to b do
if frac(sqrt(i)) = 0 then
writeln(i);
writeln();
for i := 2 to a-1 do
if a mod i = 0 then begin
writeln(i);
exit;
end;
End.