program procedury;
uses crt;
var
a,b,c : integer;

procedure ink(var a : integer);
begin
inc(a);
writeln;
end;

procedure dek(var b : integer);
begin
dec(b);
writeln;
end;

procedure kwadrat(var c : integer);
begin
c:=sqr(c);
writeln;
end;


begin
clrscr;
write('podaj a: ');
readln(a);
write('podaj b: ');
readln(b);
write('podaj c: ');
readln(c);
ink(a);
write(a);
dek(b);
write(b);
kwadrat(c);
write(c);
readln;
end.