Сделать расчет на ЭВМ (PASCAL ABC) ((НУЖНА ПОМОЩЬ))((1))Function C (r: real):

Question

Сделать расчет на ЭВМ (PASCAL ABC) ((НУЖНА ПОМОЩЬ))((1))Function C (r: real):

Сделать расчет на ЭВМ (PASCAL ABC) ((НУЖНА ПОМОЩЬ))

((1))
Function C (r: real): real;
Begin
C:=3.14*r;
End;
Var
cc,r1,r2,r3,r4:real;
Begin
Write('Введите значение r1=');
Readln(r1);
Write('Введите значение r2=');
Readln(r2);
Write('Введите значение r3=');
Readln(r3);
Write('Введите значение r4=');
Readln(r4);
cc:=C(r1)+C(r2)+C(r3)+C(r4);
Writeln('c=',cc:5:2);
End.

((2))
var
x1, x2, x3, x4, mn : integer;
function min (a, b : integer) : integer;
begin
if a lt; b
then min := a
else min := b
end;
begin
write('введите 4 числа: ');
readln(x1, x2, x3, x4);
Эхо-печать
mn := min(x1, min(x2, min(x3, x4)));
writeln('минимум: ', mn);
end.

((3))
Var
x:real;
res:real;
y:word;
Begin
clrscr;
write('Введите число в метрах, которое нужно конвертировать: ');
Readln(x);
writeln('Введите во что преобразовывать: ');
writeln('[1] - Декаметр');
writeln('[2] - Гектаметр');
writeln('[3] - Километр');
writeln('[4] - Мириаметр');
writeln('[5] - Мегаметр');
readln(y);
Case y of
1:
begin
res:=x*0.10; writeln('В ',x:3:2,' м ', res:3:2, ' Декаметров');
end;
2:
begin
res:=x*0.01; writeln('В ',x:3:2,' м ',res:3:2, ' Гектаметров');
end;
3:
begin
res:=x*0.001; writeln('в ',x:3:2,' м ',res:3:2,' Км ');
end;
4:
begin
res:=x*0.0001; writeln('В ',x:3:2,' м ',res:3:2,' Мириаметров');
end;
5:
begin
res:=x*0.00001; writeln('В ',x:3:2,' м ',res:3:2,'Мегаметров');
end;
end;
readln
end.

((4))
program lab6;
uses crt;
function a(n:integer):real;
begin
a:=1/n*sin(pi/4*n)+1/sqr(n)*cos(pi/4*n);
end;
var i:integer;
begin
clrscr;
for i:=10 to 25 do
writeln(i:2,'=',a(i):7:5);
readln
end.