最近开始看pascal,练习了下最基础的语法,有刚开始学的来帮忙看下吗?

Question

   我这里没有相应的编译器,大家看看有哪里有小问题,我是菜鸟哦，别喷我~
习题1.1   模仿例题编程1. 加法计算器：编程由键盘输入两个整数a和b，计算出它们的和并输出到屏幕上。2. 某梯形的上底、下底和高分别为8，12，9，求该梯形的面积。
3. 求边长为5.6  的正立方体表面积。4. 已知图园柱体的高为12，底面园的半径为7，求园柱体表面积。5. 计算某次考试语文、数学、英语和计算机等四科的总成绩与平均成绩。(请用输入语句从键盘输入各科成绩分)
1. program ex0;
   var  a,b,num:integer;
  begin
   writeln('input a and b');
   readln(a,b);
   num:=a+b;
   writeln('num=',num);
   readln;
  end.2. program ex1;
   const a=8;
         b=12;
         h=9;
   var s:real;
  begin
   s=(a+b)*h/2;
   writeln('s=',s);
   readln;
  end.3. program ex2;
  const a=5.6;
   var v:real;
  begin
   v=a*a*a;
   writeln('v=',v);
   readln;
  end.4. program ex3;
  const r=7;
        h=12;
   var s:real;
  begin
   s=Pi*r*r+2*Pi*r*h;
   write('s=',s);
   readln;
  end.5. program ex4;
   var a,b,c,d,num,sq:real;
  begin
   writeln('please input a,b,c and d');
   readln(a,b,c,d);
   num=a+b+c+d;
   sq=num/4;
   write('num=',num,'sq=',sq);   
   readln;
  end.

Answer 1

第1、2题正确
第3题错误，你求的不是体表面积，而是体积
3. program ex2; 
  const a=5.6; 
  var v:real; 
  begin 
  v=a*a*6; //这儿给你改成了6,因为正方体有6个面
  writeln('v=',v); 
  readln; 
  end. 
第4题你只加了一个圆柱底面,应该再乘2才对
4. program ex3; 
  const r=7; 
        h=12; 
  var s:real; 
  begin 
  s=2*Pi*r*r+2*Pi*r*h; //这儿改了下,底面积再乘2
  write('s=',s); 
  readln; 
  end. 
第5题 正确

Answer 2

应该给hys_427壹佰分奖励，能够认真的看完这几道题，给出答案，挑出错误，题目之外还教楼主做人做事的道理，天啊，天底下哪有这么好的人啊，结帖给分