Viết chương trình cho máy tính nhận vào 2 số nguyên a,b. Nếu a và b là bội của 5 thì thông báo ra màn hình kết quả (a+b):5, Nếu Nếu a và b không phải là bội của 5 thì thông báo ra màn hình kết quả (a-b)*5, Nếu a hoặc b là bội của 5 thì thông báo ra màn hình kết quả a+b. Giúp mình vs ạ mình cảm ơn nhiều :-):-)

program bai_giai;
uses crt;
var a,b:longint;
begin
 clrscr;
  write('nhap a,b:');readln(a,b);
  if(a mod 5=0)and(b mod 5=0)then write((a+b)/5:4:2);
  if(a mod 5<>0)and(b mod 5<>0)then write((a-b)*5);
  if(a mod 5=0)or(b mod 5=0)then write(a+b);
 readln
end.

program sksk;

uses crt;

var a, b, c : integer;

begin

clrscr;

write('nhap gia tri a :');readln(a);

write('nhap gia tri b :');readln(b);

if (a mod 5 = 0) and ( b mod 5 = 0) then c := (a + b) * 5;

if (a mod 5 <> 0) and ( b mod 5 <> 0) then c := (a - b)*5;

if (a mod 5 = 0) or ( b mod 5 = 0) then c := (a + b) ;

writeln('gia tri cua bieu thuc la :', c);

readln

end.