fork download
copy 
  1. uses crt;
  2. var n,i: integer;
  3. begin
  4.     writeln('chuong trinh kiem tra tinh nguyen to ');
  5.     writeln('moi ban nhap so :');
  6.     readln(n);
  7.     while (n<=0) do
  8.     	begin
  9.         	writeln('moi ban nhap lai so nguyen:');
  10.         	readln(n);
  11.     	end;
  12.     i:= round (sqrt(n));
  13.     if (n mod i<>0) then
  14.     write('n la so nguyen to')
  15.     else
  16.     write('n khong phai la so nguyen to');
  17.     readln;
  18. 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/qJHgz9
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!