NEXT PAGE

program cel_mai_mare_nr;
var a,b,c:integer;
begin
write(‘a=’);
readln(a);
write(‘b=’);
readln(b);
write(‘c=’);
readln(c);
begin
if (a>b) and (a>c) then writeln(‘a=’,a)
else
if  (b>a) and (b>c) then writeln(‘b=’,b)
else
if (c>a)and (c>b) then writeln(‘c=’,c)
else writeln(‘nr sunt egale’);
end;
readln;
end.

program cel_mai_mare_nr;
var a,b,c:integer;
begin
write(‘a=’);
readln(a);
write(‘b=’);
readln(b);
write(‘c=’);
readln(c);
begin
if (a<b) and (a<c) then writeln(‘a=’,a)
else
if  (b<a) and (b<c) then writeln(‘b=’,b)
else
if (c<a)and (c<b) then writeln(‘c=’,c)
else writeln(‘nr sunt egale’);
end;
readln;
end.

program instructiune_for;
var a:longint;
begin
write(‘a=’);
readln(a);
for a:=1 to 10 do—->>>>(in loc de 10 puneti nr dorit).
writeln(sqr(a));
readln;
end.

program prenume_presedintele_tarii;
var x:integer;
begin
writeln(‘care este prenumele presedintelui tari’);
writeln(‘1 -> traian’);
writeln(‘2 -> taienel’);
writeln(‘3 -> ion’);
readln(x);
case x of
1:writeln(‘Iti iubesti tara’);
2:writeln(‘ai fost aproape’);
3:writeln(‘Nu iti iubesti tara’);
end;
readln;
end.

program tabla_inmultiri;
var a,b:integer;
begin
for a:=1 to 10 do
begin
for b:=1 to 10 do
write(a:2,’*',b:2,’=',a*b:2);
writeln ;
readln;
end;
end.

program Cmmdc;
var n,m,n1,m1,r:integer;
begin
writeln(‘D@ny(CJ)!’);
write(‘n=’);
readln(n);
write(‘m=’);
readln(m);
n1:=n;
m1:=m;
if n<m then
Begin
r:=n;
n:=m;
m:=r;
end;
repeat
r:=n mod m;
n:=m;
m:=r;
until r=0;
writeln(‘cmmdc(‘,n1,’,',m1,’)=’,n);
readln;
end.

program loto;
var a,b,c,d,e,f:integer;
begin
writeln(‘apasa o tasta intre 1 si 49′);
write(‘primul nr ales=’);
readln(a);
write(‘al doilea nr ales=’);
readln(b);
write(‘al treilea nr ales=’);
readln(c);
write(‘al partulea nr ales=’);
readln(d);
write(‘al cincilea nr ales=’);
readln(e);
write(’si al saselea nr ales=’);
readln(f);
if (a=1) and (b=2) and (c=3) and (d=4) and (e=5)and(f=6) then
writeln(‘esti castigator la 6 din 49,ai ales numerele 1,2,3,4,5,6′)
else writeln(‘esti un loozer,Numerele erau la mintea cocosului,Hai ca ti le zic eu …..1,2,3,4,5,6′);
readln;
end.

program secunde_minute;
var m:longint;
s:longint;
begin
write(’secunde=’);
readln(s);
m:=s;
s:=m div 60;
writeln(‘Minute=’,s);
readln;
end.

program minute_secunde;
var m,s:longint;
begin
write(‘m=’);
readln(m);
m:=m;
s:=m*60;
writeln(’s=’,s);
readln;
end.

program triunghi;
var a,b,c:integer;
begin
write(‘a=’);
readln(a);
write(‘b=’);
readln(b);
write(‘c=’);
readln(c);
if (a>0)and(b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then
begin
write (‘Triunghi ‘);
if (a=b) and (b=c) then write (‘echilateral’)
else
if (a=b) or (b=c) or (a=c) then write (‘isoscel’)
else
if (sqr(a)=sqr(b)+sqr(c)) or (sqr(b)=sqr(a)+sqr(c)) or (sqr(c)=sqr(a)+sqr(b))
then write (‘dreptunghic’)
else write(‘oarecare’);
end
else write (‘nu este triunghi’);
readln;
end.