Алг
нач
если справо свободно закрасить
кон
А лучше к учителю подойди пусть поможет
1.
var
a:array [1..100000] of integer;
n, k, i:integer;
begin
read (n);
for i:=1 to n do
read (a[i]);
for i:=1 to n do
writeln (a[i]);
readln (k);
for i:=1 to n do
if k>a[i] then write (a[i]);
end.
Program x2;
var n:integer;
begin
Write('Введите n, n = ');
Readln(n);
Writeln('Сумма 1-ой и 4-ой цифр = ',n div 10000 + (n mod 100) div 10,' , произведение 2-ой и 5-ой = ', ((n mod 10000) div 1000) * (n mod 10)); // это продолжение строчки сверху
<span>end.</span>