giup em voi gap qua

[stardustdragon]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết chương trình nhập vào số a. Tìm số tự nhiên nhỏ nhất N sao cho tổng các số chẵn từ 2 đến n lớn hơn hoặc bằng a.

Giúp em vs. Em sắp nộp rồi

 

[megamanxza]

[FONT="Times New Roman"][SIZE="4"][COLOR="Blue"]
Uses crt;
var a, n, tong: integer;
begin
  clrscr;
  write ('Nhap so a: '); readln (a);
  if a<2 then
    begin
      write ('So ban nhap khong hop le! An Enter va chay lai!');
      readln; exit;
    end;
  n:=2; tong:=0;
  repeat
    tong:=tong+n;
    if tong<a then n:=n+2;
  until tong>=a;
write ('So N can tim la ',n);
readln
end.[/COLOR][/SIZE][/FONT]

Có gì sai thì mong bạn thông cảm! Đã 4 tháng rồi mình chưa đụng vô Pascal.