Жмёшь в левом верхнем углу файл (сохранить
лестья -яблоня-ствол-ветки-плоды
Program task;
var x,i,sum:integer;
begin
readln(x);
sum := 0;
for i := 1 to 4 do
begin
sum := x mod 10 + sum;
x := x div 10;
end;
writeln(sum);
readln;
<span>end. </span>
Program Task;
Var a, b: Real;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
WriteLn('Среднее арифметическое: ', ((a + b) / 2):5:2);
ReadLn;
End.
Принтер, сканер, манипулятор мышь