Паскаль,программа,язык программирования

[Alex12314]

РЕШИТЬ В ПАСКАЛЕ
Даны три целых положительных числа a, b, c. Определив остаток от деления на 3 величины
М=(a+(b^2))/c
Вычислить значение функции


((a^2)-(Корень(b)^(1/4))+ПИ) при к=0
y=Система(((b+ПИ)^2)+КОРЕНЬ(c)+(ПИ/2)) при к=1
(tg(b+ПИ)+(1/(a*c))) при к=2



я писал но чтот не получается

program Project1;
var a,b,c,m:integer;
pi,y1,y2,y3,tan:real;

begin
writeln('введите число a');
readln(a);
writeln('введите число b');
readln(b);
writeln('введите число c');
readln(c);
pi:=3.1415926;
tan:=sin(b+pi)/cos(b+pi);
y1:=(a*a)-(exp(ln(b) * 1/4))+pi;
y2:=((b+pi)*(b+pi))+1/(a*c);
y3:=tan+(1/(a*c));
m:=(a+sqr(b)) mod c;
Case m of
0:write(y1);
1:write(y2);
2:write(y3);
Else writeln('остаток не удовлетворяет условию');
end;
readln;
end.

[digitalis]

Это функция - копипаст из Екселя ? Что за

y=Система

?
И - форматируй текст проги, пользуясь тегом CODE (т.е. #) - а то читать - как будто кот в тексте покопался.
Мне кажется, что тут 2 задачи, не связанные меж собой : остаток от деления и определение сложной функции .
Black Fregat - точно, я сразу недотумкал. Уж лучше бы, как многие, скан выкладывал. Это ж додуматься - СИСТЕМА

[Black Fregat]

Сообщение от digitalis

Что за

Думаю, это должно обозначать большую фигурную скобку на три строки