<span>В Windows в имени файла запрещено использование некоторых служебных символов: «\», «/», «:», «*», «?», «"», «<», «>», «|». В Linux эти символы, кроме «/», допустимы, хотя использовать их следует с осторожностью, так как некоторые из них могут иметь специальный смысл, а также из соображений совместимости с другими ОС.</span>
If a=b
then a2=a*a;
if a>b
then a2=a+a;
Вы это имели ввиду?
Var m,n:integer;
begin
write('Введите два числа m и n: '); Readln(m,n);
if (m div n) mod 2 = 0 then m:=m*m
else n:=n*3;
Write('m=',m,', n=',n);
end.