Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  téglatest
Language: PASCAL
Code:
          Program teglatest;
VAR a,b,c:real;
BEGIN
 Write(' Egyik oldal: ');
Readln(a);
 Write(' Másik oldal: ');
Readln(b);
 Write('Harmadik oldal: ');
Readln(c);
 Writeln('A felszín:',2*(a*b+a*c+b*c):0:2);
 Writeln('A térfogat: ',a*b*c:0:2);
 Writeln('Nyomj ENTER-t!');
Readln;
END.
Comments: