Щас бы университетские вопросы задавать на сайте для школьников :D
А что сделать то? Вы вопрос правильно сформулируйте!
Var n, i: integer;
begin
readln(n);
for i := 1 to n do
if (i mod 2 = 1) then
writeln(i);
<span>end.</span>
1 просьба дедушки
2 побег колобка
3 встреча с лесными животными
4 лисья хитрость или съеденный колобок
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var s1 := ReadlnString;
var s2 := ReadlnString;
var s3 := s1 + s2;
Println('Конкатенация:', s3);
Println('Длина равна ', s3.Length);
if s1 = s2 then Println('Строки совпадают')
else Println('Строки не совпадают')
end.
<h2>Абракадабра</h2><h2>Абракодабра</h2><h2>Конкатенация: АбракадабраАбракодабра </h2><h2>Длина равна 22 </h2><h2>Строки не совпадают </h2>