Найти сумму всех натуральных чисел, четных, кратных 7 и меньших 100.

Var i,s: integer; begin for i: =1 to 100 do if (i mod 7 =0) and (i mod 2 =0) then s: =s+i; writeln(s); end.

Аббревиатура   - в словообразовании: существительное, образованное из усеченных  отрезков   слов (например ,  исполком, комсомол), из таких же отрезков в сочетании с целым словом (например, роддом, запчасти), а также из начальных звуков слов или названий их начальных букв (например, вуз, атс, мхат, цк, вднх), сложносокращенное слово ефремова т.ф. толковый словарь языка.аббревиатура ж. 1) слово, образованное из первых букв единиц в словосочетании (сша, вуз и  т. из начальных частей двух и более слов (продмаг , колхоз и т.п.) или  представляющее собою сложение начала одного слова с другим словом  словосочетания  (роддом ,  драмкружок   и т. 2) условное сокращение в буквенном и нотном письме (и т.д., см. и т. с.и.ожегов, н.ю.шведова. толковый словарь языка.аббревиатура, -ы, ж. в словообразовании: существительное, образованное из усеченных отрезков слов (напр.,  исполком, комсомол), из таких же отрезков в сочетании с целым словом (напр.,  роддом, запчасти), а также из начальных звуков слов или названий их начальных букв (напр., вуз, атс, мхат, эвм, скв),  сложносокращенное   слово. ii прил. аббревиатурный, -ая,-ое.

Это если алгоритм выполнить дословно: var   f1, f2: text;   n: integer; begin   assign(f1, 'input.txt'); reset(f1);   assign(f2, 'output.txt'); rewrite(f2);   readln(f1, n);   if n < 0 then writeln(f2, abs(n))   else   if n = 0 then writeln(f2, 0)   else writeln(f2, sqr(n));   close(f1); close(f2) end. а это, если учесть, что модуль нуля равен нулю: var   f1, f2: text;   n: integer; begin   assign(f1, 'input.txt'); reset(f1);   assign(f2, 'output.txt'); rewrite(f2);   readln(f1, n);   if n < = 0 then writeln(f2, abs(n))   else writeln(f2, sqr(n));   close(f1); close(f2) end.