program noya;
uses crt;
var a,s: longint;
begin
clrscr;
s:=0;
write ('a='); readln(a);
while a>0 do
begin
s:=s+ a mod 10;
a:= a div 10;
end;
writeln ('s=',s);
readkey;
end.

program z3;
var a, b, c: integer;
begin
for a:=1 to 20 do
for b:=1 to 20 do
for c:=1 to 20 do
if a*a+b*b=c*c then
writeln ('a=',a,'b=',b,'c=',c);
end.

Program examle_1;
var
a: array[1..7] of integer;
i,max,num: integer;
begin
for i:=1 to 7 do
begin
write ('введите элемент массива:');
readln (a[i]);
end;
max:=a[1]; num:=1;
for i:=2 to 7 do
if max< a[i] then begin max:=a[i]; num:=i; end;
write ('максимальный элемент имеет значение:',max,'его номер:',num);
end.