Если я правильно понял задание, то примерно так:
Художник Шишкин пейзажист.
Композитор Моцарт классик.
Озеро Байкал большое.
Город Лондон столица.
А где собственно задание?
Ответ д
С:\ это диск
Книги\ это директория(папка) в которой находится фаил
Рассказ.txt это сам фаил с расширением
.txt это просто расширение текстового файла
Var
n, p: integer;
begin
Write('Введите натуральное четырехзначное число -> ');
Readln(n);
p := (n div 1000) * (n mod 10); { произведение первой и последней цифр }
n := (n mod 1000) div 10; { вторая и третья цифры }
p := p * (n div 10) * (n mod 10);
Writeln('Произведение цифр числа равно ', p)
end.
Тестовое решение:
Введите натуральное четырехзначное число -> 2437
Произведение цифр числа равно 168
Var N,i,x,k:integer;
begin;
writeln('Сколько элементов в последовательности?');
readln(N);
writeln('Введите последовательность чисел');
for i:=1 to N do
begin
readln(x);
if odd(x) then
k:=k+1end;writeln(k/N*100,' %');
end.