Помогите сделать программу на паскале

Question

На отрезке [ 3, 4] генерируется целое число. С клавиатуры вводится длина отрезка. Далее находим площадь и периметр правильного многоугольника со стороной равной заданному отрезку. Если сгенерировано 3, то это треугольник, иначе - квадрат. Все результаты вывести, округлив до сотых.
Сам решил, вот: 
var a,b,p,s:real;  
begin  
  a:=random(3,4);  
  readln(b);  
  if a=3 then  
    begin  
    p:=(3*b);  
    s:= (b*b*sqrt(3)/4);  
    end  
  else  
    begin  
    p:=(4*b);  
    s:=(b*b);  
    end;  
    a:=(round(a*100))/100;  
    b:=(round(b*100))/100;  
    p:=(round(p*100))/100;  
    s:=(round(s*100))/100;  
    write(a, ' ', b, ' ', p, ' ', s);  
end.

lina_dark_5 · Accepted Answer

var a: integer; &#10;b: extended;&#10;begin &#10;randomize(); &#10;a:=random(2) +3; &#10;readln(b); &#10;writeln('сторон ', a); &#10;Writeln('периметр ', b*a); &#10;writeln('площадь ',b*b*(4-a)*sqrt(3)/4+b*b*(a-3):0:2) &#10;end.