Как-то так:
//fpc 3.0.0
program HelloWorld;
var
total: integer; // результат суммирования
ent, last: integer; // ввод, подсчет
begin
total := 0; // начальная сумма
// 30 можно поменять на любое число, чтоб цикл не шел вечно. А если надо вечно, то поменять условие на 1 < 2
while total <= 30 do
begin
// просим число
write('Enter number: ');
readln(ent);
// получаем только 4-х значные
if (ent < 1000) or (ent > 9999) then
Continue;
// берем последнюю цифру
last:= ent mod 1000;
last:= last mod 100;
last:= last mod 10;
// складываем
total:= total + last;
// выводим результат
writeln(total);
end;
end.
Результат можно посмотреть тут: https://rextester.com/ENTY66578
m = 0; p = 1; n = int(input())
a = [int(input()) for i in range(8)]
for i in range(n-8):
a.append(int(input()))
m = max(m, a[0]); p = max(p, m*a[8])
a = a[1:]
print(p)
var
x,x1:integer;
begin
readln(x);
if (x div 10 + x mod 10 >= 10) then writeln ('Является')
else begin x1:=x; while (x1 div 10 + x1 mod 10 < 10) do x1:=x1+1; end;a
if (x div 10 + x mod 10 < 10) then writeln('Нужно увеличить на ',x1-x);
end.
===== PascalABC.NET =====
begin
var a := ArrRandom(12, -2, 15);
Println('Исходный массив');
a.Println;
Println('Отобранные элементы');
a[2:].Println;
Println('После сортировки');
a[2:].Sorted.Println
end.
