program VerificaDivisibilita;


Var x: integer;

begin
Writeln('Inserisci un numero per verificare se e'' divisibile per 3');
Read(x);
 if x mod 3 = 0 then
  if x mod 2 = 0 then
   write('Il numero e'' divisibile per 2 e per 3')
    else
    write('il numero e'' divisibile per 3 ma non per 2')
   else
  write('il numero non e'' divisibile per 3');
 readln;
readln;
end.

program VerificaMaggiore;
var
x,y:integer;
Begin
Writeln('Il programma calcola qual e  il maggiore di due numeri');
Writeln('Inserisci il primo numero') ;
readln(x);
Writeln('inserisci il secondo numero');
readln(y);
if x=y then
   write('I due numeri sono uguali.')
else
 begin
 if x<y then
   write(x ,' e'' minore di ', y)
 else
   write(x, ' e'' maggiore di ', y)
end;

readln
end.

program ScambioVariabili;

var
x: integer;
y: integer;
z: Integer;


begin
writeln('Il programma scambia i valori di due variabili');
writeln('Inserisci il valore della prima variabile');
readln(x);
writeln('Inserisci il valore della seconda variabile');
readln(y);
z:= x;
x:= y;
y:= z;
Writeln('Il primo valore che hai inserito e'':',x);
writeln('Il secondo valore che hai inserito e'':', y);
readln
end.

program Triangol;
var
lato1,lato2,lato3: integer;

begin
Writeln('Inserisci le misure dei lati di un triangolo');
Readln(lato1);
readln(lato2);
readln(lato3);
if ((lato1+lato2>lato3)and (lato2+lato3>lato1) and (lato3+lato1>lato2)) then
  begin
  writeln('hai inserito correttamente i lati del triangolo');
  if (lato1=lato2)and (lato2=lato3) then
    writeln('Il triangolo e'' equilatero');

  if ((lato1=lato2) and (lato2<>lato3)) or ((lato2=lato3) and (lato3<>lato1)) or ((lato1=lato3) and (lato3<>lato2)) then
    writeln('Il triangolo e'' isoscele');

  if (lato1<>lato2) and (lato2<>lato3) then
    writeln('il triangolo e'' scaleno, minchia!!!');

  if (sqr(lato1)+sqr(lato2) = sqr(lato3)) or (sqr(lato1)+sqr(lato3)=sqr(lato2)) or (sqr(lato2)+sqr(lato3)=sqr(lato1)) then
    writeln('Il triangolo e'' rettangolo');
  end
else
  writeln('non sono i lati di un triangolo,imbecille!!!');
readln
end.

program calcolatrice;
var
oper: integer;
n1,n2: integer;
begin
writeln('Il programma fa la calcolatrice');
writeln('Selezionare un operazione:');
writeln('1 = somma');
writeln('2 = sottrazione');
writeln('3 = prodotto');
writeln('4 = divisione intera');
writeln('5 = calcolo del resto');
readln(oper);
writeln('Inserire adesso le due cifre dell''operazione');
readln(n1);
readln(n2);
case oper of
1: writeln('La somma di ',n1,' + ',n2,' e'' ',n1+n2);
2: writeln('La differenza di ',n1,' - ',n2,' e'' ',n1-n2);
3: writeln('Il prodotto di ',n1,' * ',n2,' e'' ',n1*n2);
4: writeln('Divisione tra ',n1, ' e ',n2, ' e'': ',n1 div n2);
5: writeln('il resto di ',n1, ' diviso ',n2,' e'' ',n1 mod n2);
else
writeln('Operazione non riconosciuta.');
end;
readln
end.