Uses crt;

Var a,b: real;

Begin

Clrscr;

Writeln('Nhap a,b');

Realn(a,b);

If (a>0) and (b>0) then writeln('Tich cua a,b la:', a*b)

else writeln('Yeu cau nhap lai');

Readln;

End.

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

if (a>0) and (b>0) then writeln(a*b)

else writeln('Nhap lai');

readln;

end.

a ở đây là bán kính hay đường kính bro

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

if (n%9==0) cout<<"n la boi cua 9";

else cout<<"n khong la boi cua 9";

return 0;

}

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

writeln(a*b);

if (a>0) then writeln('a la so nguyen duong')

else writeln('a la so nguyen am');

readln;

end.

Program HOC24;

var i.n: integer;

a: array[1..250] of integer;

begin

for i:=1 to n do

begin

write('Nhap diem toan cua ban thu ',i,': '); readln(a[i]);

end;

for i:=1 to n do write(a[i],' ');

readln

end.

uses crt;

var i,n:integer;     A: Array[1..50] of integer;begin        clrscr;        readln(n);readln(k);        for i:=1 to n do        begin                write('A[',i,'] = ');                readln(A[i]);        end;        for i:=1 to A[i] do        if (A[i] > k) then write(A[i]);        readlnend.

uses crt;

var a:array[1..50]of real;

i,n:integer;

begin

clrscr;

repeat

write('Nhap n='); readln(n);

until (0<n) and (n<=50);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to n do

  writeln(a[i]:4:2);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

if (a<b) cout<<a;

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long a,b,t;

int main()

{

cin>>a>>b>>t;

if (t==a+b) cout<<"chuc mung ban da tinh dung";

else cout<<"rat tiec ban da lam sai";

return 0;

}