Question

Salutare, cine ma poate ajuta sa elaborez un program in Turbo Pascal?

Answer 1

program p11;
type Zi=(L,Ma,M,J,V,S,D);
      venit=array  [Zi] of real;
var   v: Venit
begin
write('nr zilelor lui v=')
for v:=1;
   begin write('ziua cu cel mai mare venit')
end.