Salut! Am incercat sa fac asa:
program aria totala;
var l, a, x, y, b, z:integer;
begin
writeln('Introduceti latura');
readln(l);
writeln('Introduceti apotema');
readln(a);
begin
x:=l*l;
writeln('Aria bazei este', x);
end;
begin
y:=4*l;
writeln('Perimetrul bazei este', y);
end;
begin
z:=y*a/2;
writeln('Aria laterala este', z);
end
begin
b:=z+x;
writeln('Aria totala este', b);
end;
end.
Insa este in pascal, nu in turbo pascal. Sper sa te ajute
Pai vezi care e formula de la aria piramidei si gata. Nu e greu. Si eu tot cu c++ sunt.
Stiu informatica chiar destul de bine. Dar in c++ nu pascal. Daca ti. l scriu asa cum stiu poate te ajuta ma anunti.