Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  Giorgia
Language: PASCAL
Code:
program conversazione;
(*m:come ti chiami?
U:Giorgia
M:Quale sport pratichi?
U: Taekwondo
M: Ok Giorgia. Buona partita*);
Const
     Mex_1=come ti chiami?;
     Mex_2=Quale sport pratichi?;
var
     nome,sport:string;
procedure chiedi (const p_mex, var p_risp:string)
begin
     writeln (p_mex);
     readln(p_risp);
end;
procedure output();
begin
     writeln ('ok','nome',buona partita di,'sport);
end;
begin   (*main*)
     chiedi (p_mex,nome);
     chiedi (p_risp,sport);
     output();
     writeln ('Premi invio per uscire');
     readln;
end.



          
          
          
          
          
          
          
          
          
          
Comments: