Даны стороны 3х квадратов a, b, c. найдите площадь и периметр понятие подпрограммы. процедура. описание. применение

СРОЧНО ПОЖАЛУЙСТА
даны стороны 3х квадратов a,b,c. найдите площадь и периметр ( понятие подпрограммы. процедура. описание. применение.)

  • Var
    a, b, c : integer;               
     P1, p, s: real;
    Begin               
    Readln (a, b, c);               
     If a+b>c  then
    p1: = a+b+c ;               
    P:= (a+b+c)/2;               
    S:=sqrt (p*(p-a)*(p-b)*(p-c));               
     Writeln ( ‘ p1= ‘ , p1:5:2) ;               
    Writeln (‘ s=’,s:5:2);
    End.

    по формуле герон

  • Program VadimLoh;
    uses crt;
    var
    st1,st2,st3,S1,S2,S3,P1,P2,P3:integer;
    begin
    writeln('Введи сторону 1 квадрата');
    Readln(st1);
    writeln('Введи сторону 2 квадрата');
    Readln(st2);
    writeln('Введи сторону 3 квадрата');
    Readln(st3);

    S1:=st1*st1;
    S2:=st2*st2;
    S3:=st3*st3;
    P1:=st1*4;
    P2:=st2*4;
    P3:=st3*4;

    writeln('Площадь 1ого =',S1);
    writeln('Площадь 2ого =',S2);
    writeln('Площадь 3ого =',S3);
    writeln('Периметр 1ого =',P1);
    writeln('Периметр 2ого =',P2);
    writeln('Периметр 3ого =',P3);

    end.