Klavyeden çalışma saati, saatlik ücreti, çalışılan gün sayısı ve avans miktarını

Klavyeden çalışma saati, saatlik ücreti, çalışılan gün sayısı ve avans miktarının girildiği bir işçinin aylık maaşını hesaplayan program.
   uses crt;
var
csaat,cgun,avans,ucret,toplamucret:real;
begin
write(‘Çalıştığı saati giriniz:’);readln(csaat);
write(‘Çalıştığı gün sayısı:’);readln(cgun);
write(‘Saat ücreti giriniz:’);readln(ucret);
write(‘avansı gir:’);readln(avans);
toplamucret:=avans+(csaat*cgun*ucret);
writeln(‘alacağı ucret:’,toplamucret);
readkey;
end.

Linkback: https://www.buyuknet.com/klavyeden-calisma-saati-saatlik-ucreti-calisilan-gun-sayisi-ve-avans-miktarini-t8215.0.html