program skris
var pazimys:integer;
begin
Write('Koks jo metinis? Sužinokime ar skris');
readln(pazimys);
If pazimys < 5
then writeln('Po ilgu skaičiavimu žinoma kad jis skris')
else writeln('Desititojams kančia kadangi jis dar metus bus čia');
readln;
readln;
end.