ku.pas

本人 菜鸟+学生 ！ 老鸟指教的说 这些是自己写的一写PAS的程序

program ex1;
  var A:integer;
  begin
   readln(A);
   A:=100;writeln('1/5:',A);
   A:=A+20;writeln('2/5:',A);
   A:=A div 3;writeln('3/5:',A);
   A:=A+A*3;writeln('4/5:',A);
   readln;
end.