решить, буду благодарен

на паскале:

program ostatok; var c: integer; beginwriteln('введите число с.'); readln(c); writeln('остаток от деления ',c,' на 10, возведенный в квадрат, равен ',sqr(c mod 10)); end.

необходимо (но не достаточно).

перевозим сначала козу 

потом капусту и овцу перевозим назад к волку 

берём волка 

потом в онце перевозим козу

var x, y: integer;

beginwriteln('введите два числа'); readln(x,y);  

while (x< > 0) and (y< > 0) do beginif x> y then x: =x mod yelse y: =y mod x; end; writeln('нод=', x+y);   end.