BİR DÜRÜMCÜNÜN KAZANCINI BULAN PROGRAM

 uses crt;
 var
 kazan‡:integer
 begin
 clrscr;
 write('satt§  drm  says:');  readln(drm);
 kyma:=150
 domates:=15
 lavaŸ:= 25
 kazan‡:=kyma+lavaŸ+domates-drm*3
 readln;
 end.