Турбо паскаль. Разветвляющиеся выч. процессы

[lilia2121]

Помогите пожалуйста решить задачу
Даны 3 целых положительных числа a,b,c. Найти остаток от деления на 3 величины m; вычислить значения функции

[Филантроп]

var a,b,c,m:integer;
y:real;
k:integer;
begin
readln(a);
readln(b);
readln(c);
m:=sqr(a+b);
k:=m mod 3;
case k of
0:y:=exp(m+c);
1:y:=ln(a/b);
2:y:=m+c;
end;
writeln('y=',y:6:2);
readln;
end.

[lilia2121]

Всё так просто Спасибки!!!