fork download
copy 
  1. uses crt;
  2. var n,i: integer;
  3. begin
  4. 	clrscr;
  5.     writeln('chuong trinh kiem tra tinh nguyen to ');
  6.     writeln('moi ban nhap so :17');
  7.     readln(n);
  8.     while (n<=0) do
  9.     	begin
  10.         	writeln('moi ban nhap lai so nguyen:');
  11.         	readln(n);
  12.     	end;
  13.     i:= round (sqrt(n));
  14.     if (n mod i<>0) then
  15.     write('n la so nguyen to')
  16.     else
  17.     write('n khong phai la so nguyen to');
  18.     readln;
  19. end.
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
prog.pas:1: warning: missing program header
prog.pas:1: error: module/unit interface `crt' could not be imported
stdout
copy 
Standard output is empty
https://ideone.com/VjqFcN
language:
Pascal (gpc 20070904)
created:
4 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!