Pascalda Yararl bir kaç kod

[turkmmo]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

arkadaşlar ben lise 2 öğrencisi bilişim teknolojileri bölümünde okuyan bir öğrenciym pascala daha bugün geçtik pascalla sadece 3 saat geçirdim kendi yaptığım bir kaç pascal kodu tekrar söliyim daha yeniyim lütfen yorumlarınızı ona göre yapın teşekkürler hesap makinesi için kodlar:

uses crt;
var
A,B:integer;
begin
clrscr;

write('1.sayıyı giriniz');
readln(A);


write('2.sayıyı giriniz');
readln(B);

writeln;
writeln('iki sayının toplamı=',A+B);
readln;

writeln;
writeln('iki sayının carpımı=',A*B);
readln;

writeln;
writeln('iki sayının bolumu=',A/B);
readln;

writeln;
writeln('iki sayının farkı=',A-B);
readln;
end.