Паскаль составьте программу определяющую какие из 4 заданных чисел делятся на 5

Var a, b, c, d:integer;

Begin

Write ('Введите 4 числа: '); readln (a, b, c, d);

if (a mod 5 = 0) then writeln (a,' делится на 5 без остатка');

if (b mod 5 = 0) then writeln (b,' делится на 5 без остатка');

if (c mod 5 = 0) then writeln (c,' делится на 5 без остатка');

if (d mod 5 = 0) then writeln (d,' делится на 5 без остатка');

end.

program x;

uses crt;

var

mas: array[1 ... 4] of integer;

i:integer;

begin

clrscr;

writeln ('Введите 4 числа '');

for i:=1 to 4 do

begin

readln (mas[i]);

end;

for i:=1 to 4 do

if (mas[i] mod 5=0)

then

begin

writeln ('Числа без остатка ', mas[i]);

endelse if (mas[i] mod 50) then

writeln ('Числа с остатком ', mas[i]);

readln;

end.