Sử dụng vòng lặp while...do viết chương trình Pascal tính tổng n số tự nhiên đầu tiên

Viết chương trình sử dụng vòng lặp While …do để tính tổng các số chẳn nhỏ hơn n hoặc bằng n [n được nhập từ bàn phím]

`pascal`

uses crt;
var n,s,i:longint;
begin
clrscr;
readln[n];
i:=1;
s:=0;
while i