Например так можно:
var
x,y: integer;
begin
read(x);
y:=7*(x-1)+1;
if y>31 then
write('в вашем марте многовато четвергов')
else
write(y);
end.
