Bài 1 :

uses crt;

var a, b : integer;

begin

clrscr;

write('nhap so a :');readln(a);

write('nhap so b :');readln(b);

if a mod b = 0 then a := a * b else a := a + b;

writeln('a = ', a ,'; b = ', b);

readln

end.

Bài 2 :

uses crt;

var a, b, c, d, max : integer;

begin

clrscr;

write('nhap gia tri 4 so ');readln(a, b, c, d);

max := a;

if b > max then max := b;

if c > max then max := c;

if d > max then max := d;

writeln('so lon nhat : ', max);

readln

end.

bài 1:

program bai_giai;

uses crt;
var a,b:longint;
begin
clrscr;
write('nhap a :');readln(a);
write('nhap b :');readln(b);
if(a mod b = 0) then a:=a*b else a:=a+b;
writeln('a=', a ,'     b =', b);
readln
end.

bài 2:

program bai_giai;
uses crt;

var a,b,c,d,max:longint;
begin
clrscr;
write('nhap a, b, c, d:');readln(a,b,c,d);
max:= a;
if(b>max)then max := b;
if(c>max)then max := c;
if(d>max)then max := d;
writeln('so lon nhat trong ba so la:',max);
readln
end.