Var a,b,c: integer;
begin
write('a=');
read(a);
write('b=');
read(b);
write('c=');
read(c);
writeln('k=' , a b c);
end.

a=5
b=5
c=5
Savol: k-?