Jamiyatimizning tez sur`atlar bilan rivojlanishi, halqimizning milliy qadriyatlari, an`analarining tiklanishi, ijtimoiy va iqtisodiy munosabatlarining takomillashishi ta’limtizimiga murakkab vazifalarni yukladi

kl:=m+n;
k2:=m—n;
k3:=m*n; {so'ralgan amallar bajarildi}
writeln (kl,k2,k3); {hisoblangan k\=m+n, k2=m—n,k3=m*n natijaviy qiymatlarni chop etish tashkil etildi}
end. {Dastur tamom bo'ldi}
Bundan tashqari, Turbo—Paskalda o'n oltilik sanoq tizimida yozilgan butun sonlardan foydalanishga ham ruhsat beriladi. O'n oltilik sanoq tizimidagi butun sonni aniqlashda uning oldiga «$» (dollar) belgisi qo'yiladi.
Misol: $11 o'nli sanoq tizimidagi 17 ga, $12 soni esa 18 ga teng.
Endi shu holatga doir quyidagi sodda dasturni keltiramiz:
Program Sanoq _tizim;
Var
N:integer;
Begin
N:=12; {N butun qiymatli o'zgaruvchiga o'nlik sanoq tizimidagi 12 soni o'zlashtirilyapti}
N:=$12; {N butun qiymatli o'zgaruvchiga o'n oltilik sanoq tizimidagi 12 soni o'zlashtirilyapti. Bu son amalda-gi o'nli sanoq tizimida 18 ga teng}
End.
Haqiqiy sonlar
Haqiqiy sonlar matematika kursidan ma'lum bo'lgan oddiy o'nlik kasr sonlardir. Agar komputerfngiz matematik soprotsessorli bo'lsa quyidagi 4-jadvalda sa'nab o'tilgan barcha tiplar o'rinli bo'ladi.
Agar komputerda matematik soprotsessor bo'lmasa, faqat Real tipinigina ishlatish mumkin.
Haqiqiy sonlarga doir quyidagi misolni ko'raylik:
Berilgan m va n haqiqiy sonlari ustida to'rt matematik amalni bajarish dasturini tuzing
4 - j adval

Tip ko'rinishi	Mazkur tipli o'zgaruvchining qabul qiladigan qiymat oralig'i	O'zgaruvchining komputer xotirasida egallaydigan joyi
Real	2.9E-39..1.7E38	6 bayt
Single	1.5E-45..3.4E38	4bayt
Double	5.0E-324..1.7E308	8 bayt
Extended	3.4E-4932..1.1E4932	10 bayt
Comp	-9.2E18..9.2E18	8 bayt

Program arifmetika; Var
m,n:real; {m va n o'zgaruvchilarni haqiqiy sonlar tipiga tegishli deb e'lon qildik}
Begin Readln (m); {m sonini kiritish so'ralyapti}
Readln (n); {n sonini kiritish so'ralyapti}
Writeln ('sonlar yig'indisi=',/n+n);
Writeln ('sonlar ayirmasi=',m—n);
Writeln ('sonlar ko'paytmasi=',m*Ai);
If n<>0 then Writeln ('sonlar bo'linmasi=',m/n); {Agar n soni nolga teng bo'lmasa, m/n amalining natijasi mos izoh bilan chop etiladi}
end.