Срочноо!!! Составить программу информатика

1.program

var

N:integer;

begin

write('Введите ваш возраст');

readln(N);

if N<18 then write('К сожалению, водить автомобиль вам рановато')

else write('Замечательно. Вы уже можете водить автомобиль');

end.

program var N:integer; begin write('Введите ваш возраст'); readln(N); if N<18 then write('К сожалению, водить автомобиль вам рановато') else write('Замечательно. Вы уже можете водить автомобиль'); end.

2. 4 раза напечаталось слово YES