Question

Am nevoie și eu de ajutor la ex 5, dacă se poate sa fie ca pe caiet, cum ar fi : Read, Write, /... /, atribuire și ce mai trebuie sau mai bine în Turbo Pascal. Dacă este bun răspunsul dau coroana. Pls!

Answer 1

var

 a, b, c: integer;

begin

 write('Varsta Ionel:');

 readln(a);

 write('Varsta Mihai:');

 readln(b);

 if a > b then  

   writeln('Ionel este mai mare cu ', a - b, ' ani')

 else  

   writeln('Mihai este mai mare ', b - a, ' ani');    

end.