Program z1;
var
a: integer;
c: byte;
begin
readln(a);
c:=0;
while a <> 0 do begin
c:=c + a mod 10;
a:=a div 10;
end;
writeln('Summa: ', c);
<span> end.</span>
a = float(input())
b = float(input())
if a > b:
a+=10
b-=5
elif a == b:
print('Numbers is equal')
else:
a-=5
b+=10
Var i, k: integer;
begin
for i := 15 to 125 do
if (i mod 2 = 0) and (i mod 3 = 0) then write(i, '; ');
<span>end.</span>
Решение:
Delphi/Pascal
program Begin4;
var
d,L: Real;
begin
Write('Введите диаметр окружности : ');
Readln(d);
L:=3.14*d;
Writeln('Длина окружности равна: ', L);
end.