Ввести 2 числа. Вычесть из большего меньшее. (на языке паскаля)

program prim; uses crt; vara,b,r: integer; beginclrscr; writeln ('ввести два числа'); readln (a,b); if a>b thenbeginr: =a-b; endelsebeginr: =b-a; end; writeln ('r=', r: 5); readkey; end.