Найти произведение всех чисел кратных 5, из интервала от 1 до 300 блок схема решить

в не указан   шаг изменения x , допустим он равен 1

var

x,y: real;

begin

x: =1;

while x< =10 do

begin

y: =1/x-5;

writeln(y: 8: 2);

x: =x+1;

end;

end.

а) pas вот это правильный ответ!

var

a: integer;

begin

readln(a);

writeln(a*(a div 10 + (a mod 10)*10));

end.

(¬(m  v  l)  /\  k) → ((¬k  /\¬m)  \/  n)

(¬m /\ ¬l /\  k) → ((¬k  /\¬m)  \/  n)

ложно если первая часть 1 а вторая 0

¬m /\ ¬l /\  k = 1  => m=0, l=0,k=1

(¬k  /\¬m)  \/  n = 0

подставляем

(0 /\1)  \/  n = 0 => n=0