Advertisement
Guest User

Untitled

a guest
Feb 21st, 2020
118
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.13 KB | None | 0 0
  1. program olimp_1;
  2. var
  3. a,b,i:integer;
  4. begin
  5. readln(a,b);
  6. for i:=a to b do
  7. begin
  8. writeln(i,' ',i*i,' ',i*i*i);
  9. end;
  10. readln;
  11. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement