Advertisement
jackyhuichunkit

CSS2015_P1Q2

May 18th, 2016
90
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.24 KB | None | 0 0
  1. program test;
  2. var a, b, c : integer;
  3. begin
  4.     writeln('This is a test on pastebin!');
  5.     for a:=1 to 10 do
  6.     begin
  7.         b := b + 1;
  8.         c := c * 2;
  9.     end;
  10.     {This is very important}
  11.     writeln(b+c);
  12.     writeln(b);
  13.     writeln(c);
  14.     readln(a);
  15.  
  16. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement