Program P1;
Uses crt;
Var x,y: integer;
Begin
Clrscr;
Writeln('Introduceti doua numere intregi:');
Write('x='); Readln(x);
Write('y='); Readln(y);
x:=x+100;
y:=y+100;
Write('Numerele marite cu 100: ');
Writeln('x=',x,' ','y=',y);
Readkey;
End.
Exemplul2: Se considera trei numere intregi. Sa se scrie un program care calculeaza
media lor aritmetica.
Program P2;
Uses crt;
Var a,b,c,Suma: integer;
media: real;
Begin
ClrScr;
Write('Introduceti trei numere intregi: ');
Readln(a,b,c);
Suma:=a+b+c;
Writeln('Suma numerelor ',a,', ',b,'si ',c,' este: ',Suma);
media:=Suma/3;
Write('Media aritmetica este: ');
Writeln(media:5:2);
Readkey;
End.
