Răspuns :
var
num: integer;
begin
write('Introduce-ti un numar(1-9):');
read(num);
case num of
1:
begin
write('Unu ');
writeln('Pe engleza o sa fie One');
end;
2:
begin
write('Doi');
writeln('Pe engleza o sa fie Two');
end;
3:
begin
write('Trei');
writeln('Pe engleza o sa fie Three');
end;
4:
begin
write('Patru ');
writeln('Pe engleza o sa fie Four')
end;
5:
begin
write('Cinci ');
writeln('Pe engleza o sa fie Five');
end;
6:
begin
write('Sase ');
writeln('Pe engleza o sa fie Six');
end;
7:
begin
write('Sapte ');
writeln('Pe engleza o sa fie Seven');
end;
8:
begin
write('Opt ');
writeln('Pe engleaza o sa fie Eight');
end;
9:
begin
write('Noua');
writeln('Pe engleza o sa fie Nine');
end;
end;
end.