Составить блок-схему и программу, которая проверяет…

Программа на паскалеprogram chisla; var a,b,c: integer; beginreadln (a); //вводим аreadln (b); //вводим breadln (c); //вводим сif (a=c) and (b=c) then //проверяем равны ли числаwriteln ('Chisla ravni') //пишем да если равныelse //иначеwriteln ('Chisla ne ravni'); //нетreadln (); end.