Nhật Huy Ninh Hòa

uses crt;
var v,a,b,i:integer;
begin
clrscr;
write('nhap so a:');readln(a);
write('nhap so b:');readln(b);
write('nhap so v:');readln(v);
if a>b then
while v>0 do
      begin
          v:=v-a;
          v:=v+b;
          if v>0 then i:=i+1;
      end
else begin
write('sai cmnr');
readln;
exit;
end;
write('so ngay la:',i);
readln;
end.

uses crt;
const so=[1,2..8];
var a:array[1..100] of integer;
    i,n,j,k,l,m:integer;
begin
clrscr;
write('nhap so phan tu cua day:');readln(n);
for i:=1 to n do
    begin
        write('a[',i,']:');readln(a[i]);
    end;
for i:=1 to n do if a[i] in so then j:=0 else
    begin
        writeln('khong hop le');
        readln;
        exit;
    end;
for i:=1 to n-1 do
if a[i]<a[i+1] then m:=m+1;
if m=n-1 then writeln('tang');
for j:=1 to n-1 do
if a[i]>a[i+1] then k:=k+1;
if k=n-1 then writeln('giam');
if (k<>n-1) and (m<>n-1) then writeln('khong sap xep');
readln;
end.

uses crt;
var a,b,c,n,i,j,k:integer;
    st:string;
begin
clrscr;
write('nhap so a:');readln(a);
write('nhap phep toan:');readln(st);
write('nhap so b:');readln(b);
if st='+' then i:=a+b;
if st='*' then i:=a*b;
writeln('ket qua la:',i);
readln;
end.