Дано целое число i.
найти значение a,
где a=i^3, если i кратно 5
a=i^2, если i кратно 2.
a=2*i+1 в остальных случаях.

Var  i, a:integer;
begin
   readln(i);
   if i mod 5=0 then a:=i*i*i else 
    begin
    if i mod 2=0 then a:=i*i else a:=2*i+1;
    end;
    writeln(a);
    end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.