составить блок-схему и программу,которая,вводит с клавиатуры 5 чисел и проверяет является ли частное от деления суммы первых трёх чисел на сумму двух последних целым числом.Помогите пожалуйста решить эту задачу.

var x1,x2,x3,x4,x5:integer;

s:real;

BEGIN

  read(x1,x2,x3,x4,x5);

  s:= (x1+x2+x3)/(x4+x5);

  if round(s)=s then writeln("celoe - "s);

END.