สอบถามผู้รู้เรื่องโค้ดครับ

ตามหัวข้อกระทู้ครับ ไปเจอตัวอย่างโค้ดบางส่วนมา ไม่แน่ใจว่าเป็นภาษาอะไร รบกสนผู้รู้ช่วยบอกหน่อยครับ
PROGRAM ellipse;
CONST ym = 320; zm = 200; {Bildschirmmittelpunkt}
z10 = 1;
m = 200; {Maßstabsfaktor}
VAR i: integer;
grad, phi, z20, y20, w : real;
BEGIN
Clear_screen;
grad := arctan(1)/45; {pi/180}
write(' z20, phi (in Grad) = '); readln(z20,phi);
phi := phi*grad; y20 := z20;
w := 0;
move_to (ym+round(m*y20*cos(w-phi)),
zm+round(m*(-z10*cos(w)+z20*cos(w-phi))));
FOR i:=1 TO 36 DO
BEGIN
w:=i*10*grad;
line1to (ym+round(m*y20*cos(w-phi)),
zm+round(m*(-z10*cos(w)+z20*cos(w-phi))))
END;
get(input) {Warten auf Tastendruck}
END.
-----ถ้าไม่เป็นการรบกวนจนเกินไปช่วยบอกหน่อยนะครับว่าโค้ดทำงานยังไง-----