tugas pascal

uses crt;
var
y: integer;
begin
clrscr;
for y := 5 downto 1 do
writeln (y);
readln;
end.