CLS
a:
INPUT n
IF n < 1 OR INT(n) <> n OR n > 100 THEN GOTO a
DIM a(n)
h = 30000
FOR i = 1 TO n
b:
INPUT a(n)
IF a(n) < 1 OR INT(a(n)) <> a(n) OR a(n) > 300 THEN GOTO b
IF INT(((a(n)) - 6 )/ 10) = (((a(n)) - 6) / 10) AND a(n)<h THEN h = a(n)
NEXT i
PRINT h
END
Программы для решения задач - в прилагаемом файле.
Var a, b: real;
{а – возраст Маши; b – возраст Cаши}
begin
readln (a, b);
if A>B then
writeln ('Маша старше Саши')
else if a=b then
writeln('Саша и Маша ровесники')
else
writeln ('Саша старше Маши');
readln;
<span>end.</span>
Var
sum: integer := 0;
num: integer;
begin
write('Введите число n: ');
read(num);
for var k := 5 to num do sum += k;
write('Сумма: ',sum);
end.