lap trinh bai toan sau:pascal

tinh gia tri bieu thuc

s:=2014+1*4/2*3+2*5/3*4+3*6/4*5+...+2012*2015/2013*2014

giup mik voi a

program nguyento;

uses crt;

var n,i:integer;

funcition nt(n:integer):boolean;

var ok:boolean;

i:integer;

begin

ok:=true;

for i:=2 to n-1 do

if (n mod i)=0 then

ok:=ok and false;

if n<2 then

nt:=false

else

nt:=ok;

end;

begin

write('nhap n:');

readln(n);

if nt(n) then

write(n,'la so nguyen to')

else

write(n,' khong la so nguyen to');

readln;

end.

cac bn oi giup mik cau nay voi

Viết chương trình nhập vào một số từ bàn phím (hoặc từ file) một số n (n < 2 tỉ) . Kiểm tra xem n có phải là số nguyên tố không? nếu phải thì xuất ra “Yes” nếu không phải xuất ra “No”