Dibawah ini adalah program Aritmatika (Sinus, Cosinus, Tangen) menggunakan bahasa pascal.

program aritmatik;
uses wincrt;
var
x:real;
begin
clrscr;
gotoxy (18,3); writeln ('PROGRAM MENGHITUNG SINUS, COSINUS DAN TANGEN');
gotoxy (18,4); writeln ('--------------------------------------------');
gotoxy (18,5); write('Masukkan nilai dari x= ');
readln(x);

if x <0 then x:=abs(x); gotoxy (18,6); writeln('nilai x=',x:5:2); gotoxy (18,7); write('nilai x jika dimasukkan dalam fungsi sin,cos,tangen'); writeln; gotoxy (18,8); writeln('-sinus = ',sin(x):9:3); gotoxy (18,9); writeln('-cosinus= ',cos(x):9:3); gotoxy (18,10); writeln('-tangen= ',arctan(x):9:3); end. Hasilnya :