Помохыте составить программу по блок-схеме

На языке Pascal

Program num;

var a,b:integer;

begin

readln (a,b);

if (a>b) then b:=5*b;

writeln(a,',',b);

end.