Pascal: Functions to Perform Arithmetic

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var num1, num2, result: integer;
choice: char;
function plus (a,b:integer):integer;
begin
plus:=a+b;
end;

function minus (a,b:integer):integer;
begin
minus:=a-b;
end;

function times (a,b:integer):integer;
begin
times:=a*b;
end;

function divide (a,b:integer):integer;
begin
divide:=a div b;
end;

begin
writeln('enter a number');
readln(num1);
writeln('enter a number');
readln(num2);
writeln('What operation? 1 for add, 2 for minus, 3 for times, 4 for divide');
readln(choice);
case choice of
'1': result := plus(num1, num2);
'2': result := minus(num1, num2);
'3': result := times(num1, num2);
'4': result := divide(num1, num2)
else
writeln('You must enter 1-4 or die');
end;
writeln(result);
readln;
end.