Pascal segítség? :D

csinálni szeretnék egy programot ami kiszámolja a kör alapú gúla felszínét / térfogatát ugy hogy ha az a,r,m közül valami hiányzik akkor az egy pitagorasz tétellel kiszámolja de integer tipussal nem akar számolni(ez érthető is) (nvtelen.pas(18,35) Error: Incompatible types: got "Extended" expected "SmallInt") ha real vagy Extended a tipus akkor pedig nem engedi az 'or' szót belerakni

program terulet;

uses crt;

procedure gula;

var m,r,a:real;

begin

writeln('korkup Ha van ismeretlen sz m a k‚rt adatok k”z”tt akor annak a hely‚re ˇrj 0-t');

write('Örd be a magass got: ');

readln(m);

write('Örd be sugarat: ');

readln(r);

write('ˇrd be az alkot˘t: ');

readln(a);

if m or r or a=0 then

if m=0 then begin m:=sqrt(a*a-r*r); end

else if r=0 then begin r:=sqrt(a*a-m*m); end

else if a=0 then begin a:=(sqrt(r+r+m*m)); end

else write('Minden sz mot meg adt l');

writeln('A test t‚rfogata: ',(r*r*3.14*m)/3:2:2);

writeln('A test t‚rfogata: ',r*3.14*(r+a):2:2);

end;

begin

clrscr;

gula;

readln;

end.