С помощью компьютерных программ можно набирать текст, изменять его не
переписывая, сохранить его в памяти компьютера для хранения,
отпечатать на принтере копии без повторного ввода и отправить этот
текст с помощью электронной почты на другие компьютеры.
Program n1;
var a,b,c,s,k,y: real;
begin
readln(a,b,c);
s:=sqrt(a+sqr(b)*b)/sqrt(c);
k:=sqrt(abs(a*b-sqr(c)*c))+s/(2*a);
y:=3*s*k-s/(b+a);
write(y);
end.
Program Pr;
var x,y,z:real;
i:integer;
Begin
y:=-1;
x:=-pi;
For i:=1 to 7 do begin
z:=x*x+y+sin(x);
if (x<>0) then x:=x+(pi/6);
if i=6 then x:=0;
if y<>1 then y:=y+0.4;
writeln('z=',z:4:4);
end;
end.