965 монет за элементарное дело

[Денчик]

кто не слышал ,что такое паскаль не флудите
нужно написать элементарную прогу

дано натуральное число верно ли что это число четырехзначное
помогите

[Google]

Могу написать, но 965 монет маловато. го 5к

[Денчик]

за 2минутную херню?

[Google]

угу.

[Денчик]

972 и+ в репу

[IloveGuzel]

var k, x: integer;
begin
 readln(x);
 while x<>0 do
 begin
 inc(k);
 x:=x mod 10;
 end;
 if k=4 then write('верно') else write('неверно');
end.