Program odin;
var a,b,c,d:integer;
x,y:integer;
begin
readln(a,b,c,d);
x:=a+b+c+d;
y:=a*b*c*d;
writeln('сумма чисел = ', x);
writeln('произведение чисел = ', y);
end.
// ------------------------------------------
program dva;
const p=3.14;
var r:integer;
s:real;
begin
writeln('Введите радиус ');
readln(r);
s:= pi * r * r;
writeln('Площадь круга = ', s);
end.
Вес 1 пикселя в 32 цветной гамме равен 5 бит
150*8= 1200бит
1200/5= 240 точек
var s,n: integer;
begin
write('введите трехзначное число: ');
readln(n);
s:=n mod 10+ n div 100+n div 10 mod 10;
write('сумма цифр: ',s);
end.