Var a,b,c: integer;
begin
readln(a,b,c);
if (a=b)and(b=c) then writeln('Все числа равны')
else
begin
a:=a-5; b:=b-5; c:=c-5;
writeln('a = ',a,' b = ',b,' c = ',c);
end;
end.
Пример:
7 5 6
<span>a = 2 b = 0 c = 1</span>
Возраст<span> - период в физических. и психических. развитии человека</span>
Program z1;var N,A,B,C,D:integer;beginreadln(N);A:=N div 1000;B:=(N div 100) - (N div 1000)*10;C:=(N div 10)- (N div 100)*10;D:=(N mod 10);n:=0;if (A mod 3)=0 then N:=N+A;if (B mod 3)=0 then N:=N+B;if (C mod 3)=0 then N:=N+C;if (D mod 3)=0 then N:=N+D;writeln(N); end.