Odt. либроофис, doc. - ворд, txt - блокнот
Var
k : integer;
begin
read (k);
if k mod 2 = 0 then
writeln ((k div 2 - 1) mod 10)
else writeln ((k div 2 - 1) div 10 + 1);
end.
вроде так
Uses crt;
type
massiv = array [1..100] of integer;
var
mass : massiv;
n , i : integer;
begin
clrscr; // очищаем экран
randomize; // включаем генератор случайных чисел.
write('Введите кол-во элементов массива : '); readln(n);
for i:=1 to n do
begin
mass[i] := random(58) - 23;
write(mass[i], ' | ');
end;
readln;
end.