4 задания: строки, функции, модули, текстовые файлы

program z2;
function func(p,a,b,c:real):real; 
begin 
func:=sqrt(p*(p-a)*(p-b )*(p-c)); 
end; 
var x,y,q,w,e,r,t:real; 
begin 
clrscr; 
writeln(‘введите одну сторону треугольника’); 
readln(q);
writeln(‘введите вторую сторону треугольника’);
readln(w);
writeln(‘введите значение угла между ними’);
readln(e);
r:=sqrt(q*q+w*w-2*q*w*cos(e)); 
t:=(q+w+r)/2; 
writeln(‘площадь треугольника равна’,func(t,q,w,r):8:4); 
x:=2*sqr(func(t,q,w,r)); 
writeln(‘удвоенный квадрат площади треугольника’,x:8:4); 
readln 
end.

ашифровать.
s1:='';
for i:=1 to length(s) do
s1:=s1+chr(ord(s[i])-2);
Расшифровать.
s:='';
for i:=1 to length(s1) do
s:=s+chr(ord(s1[i])+2);

uses crt;
var f,g:text;
    a,b:integer;
begin
clrscr;
assign(f,'file1.txt');
reset(f);
assign(g,'file2.txt');
rewrite(g);
while not eof(f) do
 begin
  read(f,a);
  b:=a*2;
  write(g,b,' ');
 end;
close(f);
close(g);
write('Fail perepisan!');
readln
end.

unit Plosch;
interface
function Stor_3(b,c,a:real):real;
function func(p,a,b,c:real):real;
implementation
function Stor_3(b,c,a:real):real;
begin
Stor_3:=sqrt(b*b+c*c-2*b*c*cos(pi*a/180));
end;
function func(p,a,b,c:real):real;
begin
func:=sqrt(p*(p-a)*(p-b )*(p-c)); 
end;
end.

program z2;
uses crt,plosch;
var x,y,q,w,e,r,t:real;
begin 
clrscr; 
writeln('введите одну сторону треугольника');
readln(q);
writeln('введите вторую сторону треугольника');
readln(w);
repeat
writeln('введите значение угла между ними в градусах');
readln(e);
until(e>0)and(e<180);
r:=Stor_3(q,w,e);
t:=(q+w+r)/2;
writeln('площадь треугольника равна',func(t,q,w,r):8:4); 
x:=2*sqr(func(t,q,w,r)); 
writeln('удвоенный квадрат площади треугольника',x:8:4); 
readln 
end.