составить программу которая печатает все буквы латинского алфавита

Program n1;var c: char;beginfor c:='a' to 'z' do write(c,' ');for c:='A' to 'Z' do write(c,' ');end.