برنامه پاسکال با موضوع حقوق کارمندان براساس پایه گروه:
Program practice 1;
Var
M,E,P,number grop,numberboys:real;
Earning,condition:integer;
Begin
Write('please enter number grop');
Readln(numbergrop);
If(numbergrop>=8)then
Begin
Earning:=200000;
M:=numbergrop-8;
P:=m*50...