Var
a, i, max: integer;
sum: real;
begin
max := 0;
sum := 0;
i := 0;
repeat
write('Введите число: ');
readln(a);
if a > 0
then begin
sum := sum + a;
i := i + 1;
end;
if max < a
then max := a;
until a = 0;
writeln(#10,'Сумма = ', sum, #10, 'Среднее арифметическое = ', sum / i, #10, 'Наибольшее число - ', max);
end.
Program pifThi;
var
a,b,c:integer;
begin
readln(a,b,c);
if (sqr(a)=sqr(c)+sqr(b)) or
(sqr(b)=sqr(a)+sqr(c)) or
(sqr(c)=sqr(a)+sqr(b)) then write('Yes!')
else write('No!'); readln;
<span>end.</span>
в) главного меню
г) окном программы