№1. Составьте программу, выбирающую из всех вводимых в ЭВМ чисел только те,…

Программа на Паскале, описание переменных сами сделаете.№ 1.Begin s: =0; while s <177 do begin write ('введите число — '); readln (a); if (a >=1) and (a <= 5) then s: =s+a end; writeln ('cумма чисел=', s) end.№ 2.begin write ('введите длину круга l='); readln (l); d: =l/pi; writeln ('диаметр круга=', d); r: =l/ (2*pi); writeln ('радиус круга=', r); s: =sqr (l) / (4*pi); writeln ('площадь круга=', s) end.№ 3.begin write ('введите число а='); readln (a); write ('введите число b='); readln (b); if a > b then max: =a else max: =b writeln ('наибольшее число=', max); if (max mod 2=0) then write (' четное') else write ('не четное') end.