Чисел - калькулятор
Текста - блокнот, microsoft word
Графики - Adobe Photoshop
Var
r:real;
Begin
Write('Введите радиус круга: ');ReadLn(r);
WriteLn('Площадь круга: ',Pi*r*r);
WriteLn('Длина окружности: ',2*Pi*r)
End.
Var
i,a:integer;
b,c:real;
Begin
read(a);
for i:=1 to a do begin
read(c);
b:=b+c;
end;
writeln(c/a);
end.
var
i, max:integer;
c: array[1..10] of integer;
begin
for i:=1 to 10 do
read(c[i]);
max:=c[1];
for i:=2 to 10 do
if (c[i]>max) then max:=c[i];
write(max);
end.